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IDENTIFICATION 


Product Code: AC-F015A-MC 
Product Name: CVIBBAO IBV11-A (30K) Diag 
Date : AUG 1978 


Maintainer: Diagnostic Engineering 


Copyright (C) 1977,1978 
Digital Equipment Corporation, Maynard, Mass. 


This software is furnished under a license for use only on a 
single computer system and may be copied only with the inclusion 
of the above copyright notice. This software, or any other 
copies thereof, may not be provided or otherwise made available 
to any other person except for use on such system and to one who 
agrees to these license terms. Title to and ownership of the 
software shall at all times remain in DEC. 


The information in this document is subject to change without 
notice and should not be construed as a commitment by Digital 
Equipment Corporation. 


DEC assumes no responsibility for the use or reliability of its 
software on equipment which is not supplied by DEC. 
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1.0 ABSTRACT 


This program is a copy of 'MD-11-DVIBA'' with different bus and 
vector addresses. this program allows the user to check-out or 
de the IBV11-A, LSI/IB interface option. In order to 
check-out a greater portion of logic on this option, a second 
IBV11-A is needed. See section 2.1. When a second IBV11-A_ can 
be obtained in order to run this diagnostic, the user must inform 
this diagnostic to exercise the logic on one IBV11-A_ that 
requires a KGM (Known Good Module). lease note that the second 
IBV11-A should be known good. No attempt is made to checkout the 
KGM and no conclusion that if good passes are made through this 
diagnostic that the KGM is also good. Signals ‘'SRQ’’, ‘‘erl'', 
*BIAKI'', ‘DA11"' and ‘ER1IHB’’ are not tested on the IBV11-A if a 
KGM is not used. 


If the user is unfamilar with an LSI-11 he should review sections 
8.4 and 8.5. A software switch register is included with this 
program. 


Every effort was made to make this program conform to LSI-11 
Peron restrictions. However, the user should read sections 


and 7.2. 





2.0 REQUIREMENTS 


PDP-11 Family Computer with 4K of memory (or more) and 
console I/O facilities (i.e., TTY). 


IBV11-A under test. 


(Optional) Second IBV11-A 'KGM'' (known good module). The 
*KGM' must be electrically second on the LSI-11-BUS. It must 
have an intrumentation Bus Cable between it and the first 
IBV-11. Its base address should be 760160 and vector address 
of 660 (see section 3.2 if different). 


NOTE 


While it is generally recommended that a 
*KGM’ is used, if one is available, 
deposit a ‘000001°' into location 
*$SCDW1"'. No test will be performed that 
requires the ‘KGM'' if $CDW1 is zero. 


2.2 Storage 


This program occupies and uses the lower 4K of memory. 





3.0 LOADING PROCEDURE 


3.1 


3.2 





Method 

Standard procedure for normal binary tapes should be followed. 
Absolute loader must be in memory. 
Place binary tape in reader. 


Type address *7500 (* determine by location of loader). 


Type *G'’ (program will be loaded into memory). 


The program can also be loaded by XXDP, ACT or APT. 


Non-Standard Address, Vector, or Use of Software Switch Register 


This program is set to test a IBV11-A with a standard address and 
vector. If any of these are different on the IBV11-A you are 
testing, change the corresponding location in memory before 
starting this test. 


CURRENT 
TAG ADDRESS CONTENTS COMMENTS 


SBASE : 171420 ieaen tit OF EQUIPMENT 
SVECT1: 000420 : MANU SMR. VECTOR #1 


000000 
171430 ADDRESS OF SECOND IBV11-A. 
660 : VECTOR ADDRESS OF SECOND IJBV11-A. 
000000 ::DEVICE DESCRIPTOR WORD #1 
(if = 000001 to use 
“KGM'' in testing Ist IBV-11) 
(Default = 00000 to disable 
use of KGM in tests. 


4.0 


4.1 


4.3 
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STARTING PROCEDURE 
Control Switch Setting 


Before starting the diagnostic, set all switch register bits as 
desired. See section 5.1. 


Starting Addresses 
200 Start of Logic Tests 


Program and/or Operator Action 
1. Load program into memory. 
2. Enter keyboard ‘ODT’. 


3. Alter location "‘SWREG'' to reflect desired options of a switch 
register - See section 5.1. 


4. Type starting address, followed by ‘''G’’ to start program. 


SEQ 0006 


on 


5.0 OPERATING PROCEDURE 


5.1 


Switch Register Function 
OCTAL FUNCTION WHEN SET 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUT 

INHIBIT ITERATIONS (SHORT PASS) 
BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR <7:0> 


NOTE 


The Switch Register may be changed at 
any time while the diagnostic is running 
by typing ‘*G’’. 


Scope Loops 


If an error occurs and the user wishes to scope the error, 
*SWREG’’ should be altered to ‘‘100000°" at the start of the test to 
halt on error, then when the —— halts on error and the CPU 
enters ‘ODT'’, ‘‘$SWREG'’ should be altered to ‘060000°' to loop on 
current test and inhibit error typeout, then type ‘P’' to continue 
program execution. 





On 


5.3 Program and/or Operator Action 


When the program is initially started it will type: 

CVIBB-A 

SWR=000000 NEW= 

Program now waits for the operator to enter a switch register 
setting (see section 8.6). If the program is restarted, only 
“CVIBB-A"' is typed. To change the switch register setting, 
see section 8.6. 


Program executes first pass of logic tests, subtest 
iterations inhibited. 


Program reports any errors it detects. 
Program reports ‘END PASS 1°’. 


Program executes second pass of logic tests, only this time 
it will loop on each test 2000 times. 


Program the reports ‘END PASS 2"’. 


Program will continue executing steps 6 and 7 until stoped. 


ERRORS 
Error Printout 


Printout varies with the error detected. The error PC typed out 
is the actual location of the error call. 


Non-Standard Error Halt 


Bus errors will cause a Halt in the routine “‘JOTRD''. The address 
that caused this trap will be in ‘‘TRTO’'’. 





an 


7.0 RESTRICTIONS 


7.1 


7.2 


Starting Restriction 


If a free-running clock, such as 60Hz2 from the power supply, is 
attached to the ‘BEVNT’’ bus Line on both RiV level C/D and E 
systems, an interrupt to location 100 will occur when using the 
"G* and ‘L"' commands prior ue Faw e ade the first instruction. 
Therefore this program can not disable the BEVNT bus line by 
inhibiting interrupts. 


User systems requiring a free-running clock attached to the BEVNT 
bus line can temporarily avoid this situation by setting the 
PSW(RS) to 200, loading the PC with the starting address instead 
of using the ‘G’' command, and then —— the 'P"’ command. Before 
using the 'L** command, the PSW(RS) can be set to 200, thereby 
inhibiting interrupts, to avoid receiving the event interrupt 
after loading the ABS loader. 


Possible Program *BOMBS'' 


The first two tests of this program check to see if the IBV11-A 
responds to the address the program thinks its at. If the 
IBV11-A does not respond, a bus error occurs. 


For more information on the next subject. see JAN. 1976 LSI-11 
engineering bulletin issued by the Digital Components Group. 


Bus errors may alter the preset contents of locaton 4 before the 
trap is executed, thereby transferring program control to area in 
the program that was not set to handle the trap. If this 
rae f i the program will ' ** and possibly rewrite parts of 
itself. 





AM 


8.0 


8.1 


8.2 


8.3 
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MISCELLANEOUS 
Power Fail 


After a power failure occurs, the program execution will continue 
at 7, point where the power occurred. The program will type 


XXDP, ACT, APT 


The program is chainable under XXDP, ACT, or APT. Although ‘‘APT 
HOOKS'* have been installed, they have not been tested. 


Execution Time 


0.1 Minutes (6 sec) Iteration Inhibited - No Errors 
0.5 Minutes (30 sec) With Iterations - No Errors 


SEQ 0010 
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8.4 LSI=-11 ‘ODT’’ Commands 
DESCRIPTION 
<CR> RETURN Close opened location and = accept next 
command. 


<LF> LINE FEED Close current location; open next sequential 
location. 


“ (UPARROW) Open previous location. 


< (LEFT ARROW) Take contents of opened location, indexed by 
contents of PC, and open that location. 


a Take contents of opened location as absolute 
address and open that loca’ .on. 


R/ Open the word at location R. 
/ Reopen the last location. 


$N/ or RN/ Open general regis er N(0-7) or S(PS 
register). 


R:G or RG GOTO location R and start program. 


NL Execute Bootstrap loader us 108 N as device 
CSR. Console device is 177560. 


Proceed with program execution. 


Erases previous numeric character. Response 
is a backslash (). 


Entering LSI-11 ‘ODT"’ 

The halt or ODT microcode state of the KDi1F (LSI-11 module) can 
be entered in five different ways (others are a subset of these) 
from the run state: 

1. Execution of a LSI-11 halt instruction. 

2. A double bus error. 

3. AS a power up option. 


4. ASCII break with DLV11 framing error asserting the B halt 
line (enabled by jumper of DLV11). 


Upon entering the halt state, the KD11F responds through the set 
of command Listed in section 8.4. 


SEQ 0011 
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8.6 Use of Program Software SwR 


The software switch register may be changed by typing “G (control 
and letter G “y > typed simultaneously . when *G is typed, the 
program responds by typing ‘'SWR=XXXXXX'" where XXXXXX equals the 
former contents of the switch register. 


If you wish to keep the current value, type <CR>. If you wish to 
change the value, type the new value followed by a <CR>. 


It is important to note that the diagnostic is not running after 
the *G until a <CR> is typed. 


Trap Catcher 


The Trap Catcher in this diagnostic yy new concept. This 
concept will enable the user of this diagnostic to gain more 
knowledge of the events that lead the program to this area. 


The Trap Catch consists of PC+2 and JSR PC,RO. (i.e. Location 
300 would contain 302 and location 302 would contain 4700) . 


When a device interrupts to the Trap Catcher, it would pick up 
the PC+2 of the trap as an address of the interrupt service 
routine. 


The program would then pick up *'4700"' as the new PSW. Bit 7 of 
the new PSW pewtns been set, would cause further interrupts from 
happening. When the CPU attempts to execute ‘4700°' (JSR PC,RO), 
a Bus-time-out trap will occur to location 4. Location 4 
contains a pointer to “‘IOTRD’', a routine that will report the 
trap as an error. 


To guard against *Real’’ Bus errors routing us through location 4 
to “‘IOTRD", we check to see if the trap that brought us to 
Location 4 really came from the Trap Catcher area. If not we'll 
halt and leave the Trap Address in ‘TRTO"’. 


More about the interrupt error can be found in the description of 
the error in the program Listing in the routine ‘‘IOTRD"’. 


SEQ 0012 





CVIBB=A MACY11 27(654) 19-SEP-78 11:35 
CVIBBA.P11 TABLE OF CONTENTS SEQ 0013 


OPERATIONAL SWITCH SETTINGS 
TRAP CATCHER 

BASIC DEFINITIONS 

ACT11 HOOKS 

APT ae BLOCK 
COMMON TAGS 

APT MAILBOX~ETABLE 

ERROR POINTER TABLE 

REG ADDRESS AND COMMON TAGS 


PROGRAM START 
INITIALIZE THE COMMON TAGS 
— PROGRAM NAME 
SOFTWARE SWITCH REGISTER 
THE ee neta OF THE IBS, IBD REGISTERS 
THAT BASE ADDRESSES +4,+6 RESPOND WHEN ADDRESSED 
IBS IS CLEAR AT INIT OF TESTING 
IBD IS CLEAR AT INIT OF TESTING 
BASE ADDRESSES +4,+6 RETURN ZERO WHEN READ 
WE CAN SET TCS, TCS SETS CMD 


EOP WILL SET 
RE WILL SET + CLEAR 


+ 
+ 
+ 
+ 
+ 
+ 
* 
I 


AN BET SE D 
THA S XFERRED, IF NOT ENABLED 
4 BITS DAC, AND DAV 
REN .TS WHEN REM SETS, ALSO TEST CLEAR 
IFC SETS WHEN IBS SETS, ALSO TEST CLEAR 
ATN SETS WHEN TCS SETS. ALSO TEST CLEAR 
EOI SETS WHEN EOP SETS, ALSO TEST CLEAR 
RFD SET WHEN CSR CLEAR,CLEAR WHEN ACC SET 
WE CAN GENERATE AN ER2 
THAT BUS INIT a ACC, TON,LON,REM,EIP,TCS 
IBC CLEARS ACC,TON,LON, REM AN AND EOP 
*TEST THAT BUS INIT INDIRECTLY CLEARS IBD 


INTERRUPT TESTS 
THAT CMD CAN GENERATE AN INTERRUPT B 
. THAT TKR AND LNR CAN GENERATE INTERRUPTS 
THAT ER2 CAN GENERATE AN INTERRUPT 
SECOND MODULE TESTS 


743 *TEST THAT MODULE PASSES ‘BIAKI"' 





CVIBB-A MACY11 27(654) 19-SEP-78 11:35 
CVIBBA.P11 TABLE OF CONTENTS SEQ 0014 


THAT SRQ CAN GENERATE AN INTERRUPT 

THAT ERROR1 IS GENERATED IF ATN <S ON THE IB BUS 

THAT ERROR 1 IS GENERATED IF IFC IS PUT ON IB BUS BY SECOUND MODULE 

THAT ERROR 1 IS GENERATED IF REN IS ON IB BUS 

THAT AN ERROR 1 CAN GENERATE AN INTERRUPT 

THAT DATA CAN BE XFERRED BETWEEN THE MODULE UNDER TEST AND THE KGM 
T END OF TESTS 
SYSMAC ROUTINES: 
END OF PASS ay tes 
ERROR HANDLER ROUTINE 
ERROR MESSAGE TYPEOUT ROUTINE 
S ROUTINE 


TINE 
BINARY TO OCTAL (ASCII) AND TYPE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TYPE ROUTINE 
APT COMMUNICATIONS ROUTINE 
POWER DOWN AND UP ROUTINES 
TRAP DECODER 
TRAP TABLE 
1082 MESSAGES AND TABLES 
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CVIBBA.P11 SEQ 0015 


MC MD ,CND 
ME 
ABS 
AMA 
«HEADER, .SETUP,.SETTRAP,.TRMTRP,.$TRAP,.$RDOCT 
-STYPBIN, TYPOCS, .SPOWER, .$CATCH, .$TYPOCT, .EQUAT 
-SCMTAG, .SWRHI,.SEOP, .SERROR, . SERRTYP 
-STYPDEC,.$S°°" .SREAD,.S$STYPE 
MCALL _.$ACT11,.$APisi.:,.$APTYPE 
$SuR= 167400 
-TITLE CVIBB-A 
:*COPYRIGHT (C) 1978 
:*DIGITAL EQUIPMENT CORP. 
3 *MAYNARD, MASS. 01754 
-* 
a BY EDWARD C. BADGER MOD BY R. SHOOP 


: sTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
ySPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


$TN=1 
-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


tt et ee i ee i a a a 


ON TEST 
ERROR TYPEOUTS 
ITERATIONS 
ERROR 


ERROR 
TEST IN SWR<7:0> 


tae a ae a ae a a aad 


ese ep RP eR eR HS SE 


-SBTTL TRAP CATCHER 


-=0 

;*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A *'.+2"' 
7*AND ‘JSR PC,RO'' SEQUENCE TO CATCH ILLEGAL INTERRUPTS, 
[*AND INTERRUPTS TO THE WRONG VECTOR. 

: SLOCAT ION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
3 
4 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
5 
6 
a 
8 
9 
20 


000004 = 
ak A . IOTRD,200 HANDLE BUSS ERROR. 


000174 . 
DISPREG:. 0 i:SOFTWARE DISPLAY REGISTER. 
900100 SWREG: .WOR 0 3 sSOFTWARE SWITCH REGISTER. 


000104 000200 000002 ° 104,200,2 71F *B EVENT’’ ON Q-BUS IS 

CONNECTED, WE NEED A WAY OF 
000200 ‘ ; IGNORING ITS INTERRUPTS. 
000137 001422 MP START 
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CVIBBA.P11 BASIC DEFINITIONS SEQ 0016 


-SBTTL BASIC DEFINITIONS 


;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE 3 sBASIC DEFINITION OF SCOPE CALL 


a DEF INITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 
;;CODE FOR LINE FEED 
3;CODE FOR CARRIAGE RETURN 
000200 0 ;:CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= ; PROCESSOR STATUS WORD 


177774 23 STACK LIMIT REGISTER 
OGRAM INTERRUPT REQUEST REGISTER 
SIHARDWARE SWITCH REGISTER 
177570 ; sHARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= + NERAL 


1 

x3 

24 ss RAL 

x5 3 REGISTER 
26 > GE REGISTER 
; ; ¢ GENERAL REGISTER 
%7 PROGRAM COUNTER 


Ss Saettae! ig LEVEL DEFINITIONS 


NOUWUSWN-O 


> PRIORITY 
3*’"SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


ee Ne Nee ee Ne ee ee ee ee ee ee ae ee ae ee ee ee ee ee ee ee ee ee ewe ee we eS ee eee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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CVIBBA.P11 BASIC DEFINITIONS SEQ 0017 


000010 
000004 


000002 
000001 


1 

BITO9.BIT9 
B1T08,BI1T8 
B1T07,B1T7 
B1T06,B1T6 
B1T05,B1T5 


-EQUIV BITOO,BITO 


;*BASIC *‘CPU'’ TRAP VECTOR _ADDRESSES 
ME OUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL INSTRUCTIONS 


33 TRACE TRAP 

: ;BREAKPOINT TRAP (BPT) 
IOTVEC= 20 ED me hy 5 oa TRAP (IOT) **SCOPE** 
PWRVEC= 24 : :POWER AIL 
EMTVEC= 30 : TEMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 :""TRAP’' TRAP 
TKVEC= 60 StrTy KEYBOARD VECTOR 


1 
; 
. 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


eee eee eee ee ee ee ee ee eee eee ee eee eee ee ee i i a ee a 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
C 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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-P11 BASIC DEFINITIONS SEQ 0018 


000064 TPVEC= 64 3; TTY PRINTER VECTOR 
000240 PIRQVEC=240 3 PROGRAM INTERRUPT REQUEST VECTOR 


171420 ABASE= 171420 
AVECT1= 420 
APRIOR= 200 
$TN=1 


-SBTTL ACT11 HOOKS 


RRR ERR ERR E EERE RRR EERE eRe 
“HOOKS REQUIRED BY ACT11 
a ; SAVE PC 
SENDAD 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


-WORD 0 i32)SET LOC. ha TO ZERO 
-=$SVPC :< RESTORE P 


-=1000 
-SBTTL APT PARAMETER BLOCK 


ee A REE RRA EEE EERE EERE EERE EERE RR 
SEF LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
Tritt e titi t titi i itii tiie titiiigiiiii iit ree 
32SAVE CURRENT LOCATION 
7:SET POWER FAIL TO POINT TO START OF PROGRAM 
22 FOR APT START UP 
:zPOINT TO APT INDIRECT ADDRESS PNTR. 
7zPOINT TO APT HEADER BLOCK 
;;RESET LOCATION COUNTER 
PTT ITITITI TTI TLE LTTE EEL LLL Little 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


3:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
7 ADDRESS OF APT MAILBOX (BITS 0-15) 
60. ;;RUN TIM OF LONGEST TEST 
120. —_ TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
120. DITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIC%AL UNIT 
$ETEND-SMAIL/2 3 LENGTH MAILBOX~E TABLE (WORDS) 


.¢ 
1 
q 
1 
1 
(1 
(2 
(1 
(1 
(1 
(| 
(1 
(1 
(1 
(1 
1 
qd 
5 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
6 
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IBBA.P11 COMMON TAGS SEQ 0019 


-SBTTL COMMON TAGS 


MPR RRRAASALALZALELSLALESASER ESSE ESSER SERRE EERE ARES ARR RRR REAR RRS DDS 


‘THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
**USED IN THE ?ROGRAM. 


SCMTAG: 3¢START OF COMMON TAGS 


STSTNM: . ;sCONTAINS THE TEST NUMBER 
: ‘3 ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
a CONTROL BYTE 

ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD" DATA 
ADDRESS an *BAD' DATA 
* GOOD" DAT 


; INS DATA. 
: IRESERVED--NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
; ADDRESS OF DISPLAY REGISTER 
:zTTY KBD STATUS 
;; TTY KBD BUFFER 
z31Ty PRINTER STATUS REG. ADDRESS 
:TTY PRINTER BUFFER REG. ADDRESS 
[CONTAINS NULL CHARACTER FOR FILLS 
«CONTAINS # OF FILLER CHARACTERS mequinge 
a FILL CHARS. AFTER A “LINE FEED’ 
:'"TERMINAL AVAILABLE’ FLAG (BI T<07>=0=YES) 
+ MAX. NUMBER OF ITERATIONS 
sESCAPE ON ERROR ADDRESS 
<207><377><377> 33 CODE FOR BE 
/?/ ert tht MARK 
<15> ;; CARRIAGE RETURN 
<12> :7LINE FEED 
SARA AREER AAA E EERE RREREEREEERAERREERREREEREE 


*SBITL APT MAILBOX-E TABLE 


SPARE AREER ERE EEE EERE ERR EARAERERRERRERR EEE 


—? 
Nnrn——— a 
SRRNSAARARNOE 
leleloleleleleloleleor jelelelelelejlela) 


ee Na eee eee eee ae ee ee ee ee ee ete ee ee ee eee ae ae ie ee le ae ee Ss oe ae ae 
o9o 
on 
oy 
$ 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


Re et et st ss a as a a ss 2 hh ho to St a St SS 


3 ;APT MAILBOX 
3sMESSAGE TYPE CODE 
3:FATAL ERROR NUMBER 
37: TEST NUMBER 
3:PASS COUNT 

SDEVCT: - WORD ;;DEVICE COUNT 
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CVIBBA.P11 


APT MAILBOX-E TABLE 
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SUNIT: 


. WORD 


ENGTH 
T ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
; ENVIRONMENT MODE BITS 
2 sAPT SWITCH REGISTER 
3 USER SWITCHES 
;CPU TYPE, Pou Tie 
bits vote CPU T 
11/04=01, "15 /05= 02,11/20=03,11/40=04,11/45=05 
11/70=06.PDQ=07 ,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
HIGH ADDRESS,.M.S. BYTE 
“MEM. TYPE ,BLKA1 
MEM.TYPE BYTE == (HIGH BYTE) 


500 
7 HIGH ADDRESS,BLKA1 
MEM.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
;zHIGH ADDRESS.M.S. BYTE 
7 MEM. TYPE .BLKA2 
> :MEM.LAST ADDRESS, ,BLKA2 
: ;HIGH Gr tise -S5.BYTE 


"TYPE. 
;MEM.LAST ADDRESS ,BLK&4 
INTERRUPT VECTOR#1 BUS PRIORITYA1 
INTERRUPT VECTOR#2BUS PRIORITY#2 
;sBASE ADDRESS OF EQUIPMENT UNDER TEST 
;:DEVICE MAP 
3; CONTROLLER DESCRIPTION WORDA1 


SEQ 0020 
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CVIBBA.P11 ERROR POINTER TABLE SEQ 0021 


-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
7*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
; *LOCAT TON $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
El: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3;POINTS TO THE ERROR MESSAGE 
ss TO THE DATA HEADER 

: TO THE DATA 
3:POINTS TO THE DATA FORMAT 


SERRTB: 


012232 : IBS FUNCTION ERROR 
; TEST ERRPC IB ADDR 
STESTN, SERRPC, IBS 

012724 TALL NUMBERS ARE IN OCTAL FORM. 


012260 ; IBD FUNCTION ERROR 

012453 ; 

012654 BS 

012724 TALL NUMBERS ARE IN OCTAL FORM. 


; IBS DATA ERROR 

TEST ERRPC GOOD BAD 

:STESTN, SERRPC , SGDDAT , SBDDAT 
012724 TALL NUMBERS ARE IN OCTAL FORM. 


012330 : 18D DATA ERROR 
; TEST -ERRPC GOOD BAD 
TSTESTN, SERRPC ,SGDDAT , SBDDAT 
012724 TALL NUMBERS ARE IN OCTAL FORM. 


012352 ;1BS/1BD ADDRESS ERROR 
:TEST ERROR PC ADDRESS 
7 $TSTNM, SERRPC , IBS 
012724 TALL NUMBERS ARE IN OCTAL FORM. 
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CVIBBA.P11 ERROR POINTER TABLE SEQ 0022 


012402 4 77 hee DATA ERROR 
; TEST ERRPC GOOD BAD 
:STESTN. SERRPC , SGDDAT , SBDDAT 
012724 ALL NUMBERS ARE IN OCTAL FORM. 


012431 EM7 2 INTERRUPT ERROR 

012607 ; TEST ERRPC TO FROM ADDR. 
012712 > TSTNM,MERRPC , TRTO, TRFRO 

012724 TALL NUMBERS ARE IN OCTAL FORM. 


-SBTTL REG ADDRESS AND COMMON TAGS 
WARNING IF DEVICE # IS AT DIFFERENT ADDRESS OR VECTOR 
;DO NOT PATCH THESE LOCATIONS - SEE PROGRAM DOCUMENTATION. 


ABASE _ ;>NO <;CONTROL AND STATUS REGISTER. 
pore :>PATCHES <;DATA REGISTER. 
ABASE +4 ZADDRESS RESERVED FOR 
ABASE +6 FUTURE USE 

AVECT1 ;>ALLOWED <; VECTOR ADDRESS. 
AVECT1+4 ;>HERE! <;VECTOR ADDR. +4. 
AVECT1+10 

AVECT1+14 

ABASE +10 

ABASE +12 

660 


~ Ot ee ean ie bide ne 
RAVSSISVAARLSSEVSSES 


664 
670 
674 


ADDRESSES +2 LOCATIONS. 


AVECT1+2 ; : DO NOT ATTEMPT TO PATCH 
AVECT1+6 ; THESE LOCATIONS IF A VECTOR 
AVECT1+#12 ; VARYIES . ALTER LOCATION 
AVECT1+16 ; “SVECTI:"*. 


AVECT1+#22 ; IF TEST MODULE VECTOR IS 
AVECT1+#+26 ; DIFFERENT,YOU MUST CHANGE 


AVECT1+32 ; LOCATION *VECTA2:"'. 
AVECT1+36 


-SBTTL PROGRAM START 


INITIALIZE THE COMMON TAGS 
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COMMON TAGS 


CVIBBA.P11 INITIALIZE THE C 


012737 


013746 


012737 


012737 
012737 


013737 
013737 
062737 
013737 
062737 

013737 
062737 

013737 


042737 
013737 


177777 


001622 
000176 
000174 
000004 
001202 
000200 
001216 
012102 
000200 


001250 
00734 


SEQ 0023 


3;CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV #SCMTAG RO 


CK ,SP 


STA 
ss INITIALTZE A FEW VECTORS 
#SSCOPE ,a# IOTVEC oi ive VECTOR FOR SCOPE ROUTINE 


ee -1"", SETUP 


#340, a#1OTVEC+2 = :L 
#SERROR , a#EMTVEC 
,@WEMTVEC +2 sel VEL 
RAP ,a#TRAPVEC :; FRAP VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC +2: LEVEL 7 
#SPURDN, 


‘iti LOCATION TO BE CLEARED 
;CLEAR MEMORY LOCATION 


* $:LOOP BACK IF 


NO 
3sSETUP THE STACK POINTER 
VEL 
cee —— FOR ERROR ROUTINE 


ee i ? se VECTOR 


@FPWRV' 
#340, arPURVECS? 77 LEVEL 


@¥ERRVEC ,- (SP) 
#64$ ,a#ERRVEC 


ADSWR , SWR 
#DDISP ,DISPLAY 
#~1 ,aSWR 


65$ 
#65$, (SP) 
ASWREG , SWR 


#DISPREG DISPLAY 


(SP) +, @#ERRVEC 
SPASS 

~~ -SENVM 
AMSSWREG , SWR 


#IOTRD ,ERRVEC 
#200 ,ERRVEC+2 


SBASE , IBS 
BS, 18D 


#2, 1BCA 
S$VECT1,VECTA 
#170000, VECTA 
IBS, IBSA 


3s INITIALIZE NUMBER OF ITERATIONS 
2 ¢CLEAR THE ESCAPE ON ERROR ADDRESS 
sALLOW ONE ERROR PER TEST 
:3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
TUP THE ERROR LOOP ADDRESS 


MOV -SLPERR 
2eSIZE 4 : HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
QUAL T FOR A SOFTWARE SWITCH > aes 


7:SAVE ERROR VECT 
::SET UP ERROR VECTOR 
+3 SETUP FOR A HARDWARE SWICH REGISTER 
zAND A HARDWARE DISPLAY REGISTER 
7:TRY TO REFERENCE HARDWARE SWR 
+e IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 
7 :BRANCH IF NO TIMEOUT 
SISET UP FOR TRAP RETURN 


:sPOINT TO SOFTWARE SWR 
: RESTORE ERROR VECTOR 


3zCLEAR PASS COUNT 

7sTEST USER SIZE UNDER APT 
37YES.USE NON-APT SWITCH 
33NO,USE APT SWITCH REGISTER 


SET TO HANDLE BUS ERRORS. 


;GET BASE ADDR. 
sFIX DATA BUFFER= 
CSR+2 


GET VECTOR ADDR. 
;STRIP JUNK 





On 


CVIBB-A MACY11 27(654) 
225 001774 013737 
226 002002 013737 

062737 
228 002016 0135737 
29 062737 


(1) 002266 013777 
(1) 002274 012777 


1) 002302 013777 
» 002310 012777 


002316 013777 
002324 012777 


002332 013777 
002340 012777 


1012 
(2) 002366 123727 


19-SEP-78 11:35 PAGE 1-9 
CVIBBA.P11 INITIALIZE THE COMMON TAGS 


001350 
001366 
000002 
001356 
000004 
001360 
000004 
001362 
000004 
001372 
000004 
001374 
000004 
001376 
000004 


001356 
000002 
001402 
000004 
001404 
000004 
001406 
000004 
001372 
000002 
001412 
000004 
001414 
000004 
001416 
000004 


001402 
004700 


001404 
004700 


001406 
004700 


001410 
004700 


177777 
002422 
000042 
001214 


IBD, IBDA 
1BS2, I1BD2 
#2, 1BD2 
VECTA, VECTB 
#4,VECTB 
VECTB, VECTC 
#6, VECTC 
VECTC, VECTD 
#4, VECTD 
VECTA2, VECTB2 
#4, VECTB2 
vECTB2 VECTC2 
#4, VECTC2 
VECTES. VECTD2 
#4, VECTD2 


VECTA,PRA :SET UP VECTOR+2 ADDRESSES. 
#2,PRA 
PRA, PRB 
#4,PRB 
PRB, PRC 
#4 PRC 
PRC PRD 

PRD 
VECTA2,PRA2 

PRA2 
PRA2,PRB2 

PRB 
PRB2,PRC2 
#4,PRC 
PRC2,PRD2 

PRD 

RESV- 

PRA, @VECTA s7pestone VECTOR FOR 
#4700, @PRA :/ ILLEGAL INTRO. 
PRB,@VECTB :/RESTORE VECTOR FOR 
#4700, aPRB :/ ILLEGAL INTRO. 
PRC, @VECTC ;/RESTORE VECTOR FOR 

#4700, aPRC :/ ILLEGAL INTRO. 
PRD, @VECTD :/RESTORE VECTOR FOR 


#4700, aPRD :/ILLEGAL INTRO. 


OGRAM NAME 
33 TYPE THE NAME Pgs PROGRAM IF Steet PASS 


2 FIRS ST sy 


CH IF 
PE ASCIZ NETRING 


,65$ 
- SBTTL e VALUE H's SOF TWARE suite REGISTER 


012664 MOV 
001370 MOV 
001370 ADD 
001360 MOV 
001360 ADD 
001362 MOV 
001362 ADD 
364 MOV 
364 ADD 
001374 MOV 
001374 ADD 
001376 MOV 
001376 ADD 
001400 MOV 
001400 ADD 
001402 MOV 
001402 ADD 
001404 MOV 
001404 ADD 
001406 MOV 
001406 ADD 
001410 MOV 
001410 ADD 
001412 MOV 
001412 ADD 
001414 MOV 
001414 ADD 
001416 MOV 
001416 ADD 
001420 MOV 
001420 ADD 
RSTART: 
177062 MOV 
177100 MOV 
177050 MOV 
177066 MOV 
177036 MOV 
177054 MOV 
177024 MOV 
177042 MOV 
-SBTTL TYPE PR 
INC 
BNE 
TYPE 
BNE 
000001 CMPB 


WE RUNNING UNDER XXDP/ACT? 


3 ARE 
BRANCH IF Y 


66$ YES 
SENV,41 3ARE WE RUNNING UNDER APT? 


SEQ 0024 


On 
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000403 
112737 
000416 


000005 


000240 
012737 
012737 
012737 
012737 
012737 


013746 
012737 


005777 
012737 
005777 
000406 
062706 


19-SEP-78 


001140 


000001 


000050 
002520 


000001 
000001 
002520 


000004 
002552 
176610 
002560 


176600 


000004 


000176 


001134 


66$: 
67$: 


33658: 


64$: 


11:35 PAGE 1-10 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


RESET 


66$ 
SWR ,ASWREG 
67$ 


67$ 
#1, $AUTOB 


; BRANCH IF YES 
san REG SELECTED? 


;BRANCH IF NO 
Z:GET SOFT-SWR SETTINGS 
3¢SET AUTO-MODE INDICATOR 
OVER THE ASCIZ 


64$ 3GET 
<CRLF >#CVIBBA IBVI1A DIAGNOSTICA<CRLF> 


SLR RRR ERR ERE REAR EKEEKEEEREEKEKK 


*TEST THE ADDRESSABILITY OF THE IBS, IBD REGISTERS 


SL RARER ERE RRR EEREREEEEEREKEKEERER ERE KKKEKKEEEKEEEREEEK 


T*TEST 1 


TST1: 


#50,$TIMES 
#1$,$LPADR 


#1,$TSTNM 
#1 ,$TESTN 
#1$,SLPERR 


ERRVEC ,~(SP) 
#2$ ,ERRVEC 


aIBS 

#3$ ,ERRVEC 
a1BD 

4$ 

#4 ,SP 


32:DO0 50 ITERATIONS 
::SET SCOPE LOOP ADDRESS 


SET TEST #1. 
DON'T FORGET APT! 


SAVE CONTENTS OF ADDR. 4 

;SET TIME-OUT TRAP VECTOR TO HANDLE 
IN CASE WE TIME OUT WHEN 

[WE ADDR. THE IBV-11 


ADDR THE IBS, IF NO RESPONSE, 
WILL TRAP TO 2$ FROM HERE 
CHANGE FOR ADDRESSING THE IBD REG. 
a. THE IBD REG 
“WE'LL TRAP TO 3$ FROM HERE IF BAD. 


3:/ADD #4 TO STACK POINTER. 


3s $$$S$$$$E$S$>>> ERROR <<<$S$S$SSSSS$E 


ERROR 


5 


:/MODULE FAULT DETECTED: 
; IBS REGISTER COULD NOT BE 
z ADDRESSED 


3; SSS$$S$$SS$*** ERROR “*“SSSSSSSSSS 


ADD 


#4 ,SP 


3/ADD #4 TO STACK POINTER. 


3; S$$$$S$$$$$>>> ERROR <<<S$$SS$SSSSS 





On 


CVIBB-A MACY11 a 
CVIBBA.P11 


104005 


012637 


012746 
012746 
000002 


000004 
012737 
013746 
012737 
005777 
012737 
005777 
000407 


062706 


N 2 
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*TEST THE ADDRESSABILITY OF THE IBS, IBD REGISTERS SEQ 0026 


000010 
000004 
002646 
176520 
002656 


176510 


000004 


ERROR 5 3;/MODULE FAULT DETECTED: 
ADDRESSED 


3 ;SS$SS$SS$$S$$*** ERROR “““S$SSSSSSSSS 
MOV (SP) +, ERRVEC + | tae CONTENTS OF LOC 4. 


#0,-(SP) :/SET CPU PRIORITY ON RETURN 
#64$,,-(SP) ;/SHOW RETURN ADDRESS 
;/CAUSE A RETURN (PUTS NEW STATUS 
64$: :7IN STATUS REG.) 


© IKKE REE REE EEK KEKE KEERERKEEEKEKK 


s*TEST 2 *TEST THAT BASE ADDRESSES +4,+6 RESPOND WHEN ADDRESSED 


;*EVEN THOUGH THE BASE ADDRESS +4 AND +6 ARE NOT USED, 
: * THE I1BV11A SHOULD RESPOND TO THEM 


cnceuebertnbaaneneneeenenneeeteNNeNeAeRERENENNENAROEER 
TST2: SCOPE 
001160 MOV #10,STIMES 7:D0 10 ITERATIONS 


MOV ERRVEC ,~(SP) SAVE CONTENTS OF ADDR 4. 
000004 MOV #1$,ERRVEC SET TIME OUT TRAP VECTOR TO HANDLE 
3 IN CASE WE TIME OUT WHEN WE 
TADDRESS THE IBV-11 ADDRESSES +4,+6. 
TST aI BwC TEST BASE ADDRESS +4, IF NO RESPONSE 
[WILL TRAP TO 1$ FROM HERE 


000004 MOV #2$ ,ERRVEC : CHANGE FOR ADDRESSING +6 ADDR. 
aIBCA ;ADDR THE +6 ADDR. - TRAP IF BAD. 
3$ ;CONTINUE IF GOOD. 

ADD #4 ,SP :/ADD #4 TO STACK POINTER. 
3: $$$$$S$$$E$$>>> ERROR <<<$$$S$SS$SSS 


ERROR 5 ;/MODULE FAULT DETECTED: 
BASE ADDR+4 COULD NOT 
;BE ADDRESSED. 


3; S$$$$$$$$S*** ERROR “**S$SSSSSSSSS 
BR 3$ 


ADD #4 ,SP :/ADD #4 TO STACK POINTER. 


s 


 :$$$$$$S$$E$E$S>>> ERROR <<<S$$$SSSSSSS 
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002662 


002716 


002746 


104005 


012637 


000004 
012737 
000005 
005037 


017737 
001401 


104003 


000004 
012737 
000005 
005037 


117737 
001401 


B 3 
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*TEST THAT BASE ADDRESSES +4,+6 RESPOND WHEN ADDRESSED 


ERROR 5 ;/MODULE FAULT DETECTED: 
;BASE ADDR+6 COULD NOT 
;BE ADDRESSED. 
s S$$S$$SS$ESS*** ERROR “**S$S$SSSSSSS 
000004 3$: MOV (SP) +, ERRVEC ;RESTORE CONTENTS OF LOC 4. 
SII III TI IIIT TT TR TTT I IK TOR ITI TTR IT TR IT TTI 
s*TEST 3 *TEST THAT IBS IS CLEAR AT INIT OF TESTING 
TL I RII RI I II IIR RRR REAR ER 
TST3: SCOPE 
000001 001160 MOV #1,$TIMES ::DO0 1 ITERATION 
RESET ; ISSUE SYSTEM INIT. 
001124 CLR SGDDAT sEXPECT ZERO CSR. 
176434 001126 MOV @IBS,$BDDAT ZREAD CSR. 
BEQ TST4 ae 
2 S$S$$S$SE$EES$>>> ERROR <<<S$S$S$S$SS$SSSS 
ERROR 3 ;/MODULE FAULT DETECTED: 
; IBS NOT CLEAR ON INT. 
7 S$$$S$$$$$EE*** ERROR ***S$SSSSSSSSS 
KEKE KKKEEKEKEKEKEKEKREKKKEKREKREKEKKEK 
TSTEST 4 *xTEST THAT IBD IS CLEAR AT INIT OF TESTING 
TAC RII ICIS IIIS IIIS II ISIS SSSI SA IA 
TST4: SCOPE 
000001 001160 MOV #1,$TIMES ::D0 1 ITERATION 
RESET s ISSUE SYSTEM INITIALIZE. 
001124 CLR SGDDAT sEXPECT ZERO CSR. 
176406 001126 MOVB @IBD,$BDDAT ;READ DBR 
BEQ TST5 ae 
7 $$$$$$$$$EL>>> ERROR <<<$SS$SSESSS 
ERROR 4 ;/MODULE FAULT DETECTED: 


; IBD NOT CLEAR ON INIT. 
7; S$$$ESS$$S$*** ERROR “**$SSSSSSSSS 


BRI RR RR RRR REE ERE EERE RR ERE REAR ERR ERR 


SEQ 0027 
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000004 
012737 


000405 


017737 
001401 


¢ 3 
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*TEST THAT BASE ADDRESSES +4,+6 RETURN ZERO WHEN READ 


000010 


001124 
176362 


176350 


176326 
000001 


s*TEST a 
: BASE ADDRESS +4 AND 


*TEST THAT BASE ADDRESSES +4,+6 RETURN ZERO WHEN READ 


+6 SHOULD RETURN A ZERO WHEN 


z READ, IN THIS TEST WE WILL TRY THAT. 


, seennentensennaneennenescentqeneneseenesenenennnensnnaensenecese 


TST5: 
001160 #10,$TIMES 


$GDDAT 
001126 een 


::$$$$$$$$$$>>> ERROR 


ERROR 6 


7; S$$S$$$$SS$$S*** ERROR 
BR TST6 


001126 1$: MOV 


@IBCA, $BDDAT 
BEQ TST6 


3: $$$$$$$$$$>>> ERROR 


ERROR 6 


3; $$$$$S$$S$S$*** ERROR 


3:D0 10 ITERATIONS 


EXPECT ZERO RETURN 
READ BASE ADDRESS+4 
:1F ZERO - GOOD. 


<<<$S$S$SSSSS$S 


;/MODULE FAULT DETECTED: 
;SHOULD HAVE READ BACK ZERO FROM 
THIS ADDR. 


“““$SSSSSSSS$ 


READ BASE ADDR+6, SHOULD BE ZERO 


<<<S$S$S$SSS$SSSS 


;/MODULE FAULT DETECTED 
; SHOULD HAVE READ BACK ZERO FROM 
BASE ADDR+6. 


“““$SSSSSSSSS 


SL RARER EERE REE EERE EERE EERE ERR EREEREEEER AER EER EE 


T*TEST 6 *TEST THAT WE 


CAN SET TCS, TCS SETS CMD 


J LARA ERE EERE EERE EEE EEE EERE ARERR EEEREERERREREE 


TST6: 


aIBS 
176320 #B1TO 


CLEAR CLR 


-@IBS saet Vos. 
#B1T0!B1T10,$GDDAT as" ONLY TCS AND CMD TO SET 


@1BS,$BDDAT 
001126 i mama 


7 $$$$$$$$$$>>> ERROR 


ERROR 3 


;READ THE IBS. 
:DID TCS AND CMD SET? 
YES = CONTINUE 


<<<S$$SSSSSSSS 


;/MODULE FAULT DETECTED: 


SEQ 0028 
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CVIBBA.P11 *TEST THAT WE CAN SET TCS, TCS SETS CMD 


;TCS AND/OR CMD FAILED TO SET 
se ERROR “““$$SS$SS$SSS$S 


oe 


eee H 176262 «18: #81T0,a1BS ;CLEAR TCS. 
C $GDDAT SEXPECT TCS AND CMD TO CLEAR 
176282 001126 +} mamma + READ IBS, DID THEY CLEAR? 


;:S$$S$$$$S$$E>>> ERROR <<<S$S$SSSSSSS$E 


ERROR 3 ;/MODULE FAULT DETECTED: 
;TCS AND/OR CMD FAILED TO CLEAR. 


3 SS$S$SSSSS$*** ERROR “““S$SSSSSSSSS 


RRA REEEEERAEAEAAAEEAAEREARAEARERRRERRERKEREEREREEEE 


oe 


s*TEST 7 *TEST THAT EOP WILL SET 


LEAT R ARR AERERRERREREERERERERAEEERRRREREEEREE EEE ERERAERREREE EERE 


TST?7: 


aI1Bs :CLEAR CSR. 
176230 #B1T1,aIBS SET EOP 
001124 #B1T1,$GDDAT as a EOP TO SET. 


001126 @1BS ,$B8DDAT : 
001126 SGDDAT,$BDDAT ;DID EOP SET? 
1$ YES = CONTINUE 


::$$$S$S$$$S$$>>> ERROR <<<$S$S$SSSSSSS$ 
ERROR 3 ;/MODULE FAULT DETECTED: 


;EOP BIT SETTING ERROR. 
; -S$$$$S$SSS$*** ERROR “**S$SSSSSSSSS 
BR TST10 


000002 176172 I$: #B1T1,aI1BS CLEAR EOP 
001124 $GDDAT eee T A ZERO CSR 
176162 001126 737? meme “READ IBS, IS IT CLEAR? 


7 S$$S$$S$$S$$S$>>> ERROR <<<S$$S$SSSSSS 
ERROR 3 :/MODULE FAULT DETECTED: 


;1BS FAILED TO CLEAR 
7; SS$S$$S$$S$*** ERROR “**SSSSSSSSSS 
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I 11 *TEST THAT EOP WILL SET SEQ 0%30 


RRR CEA RARRERAEEREREREEREEEEEAAREARAERRKEEREEREEK 


S*TEST 10 *TEST THAT RE WILL SET + CLEAR 


SERA REE ARAER ERE E EEE A ERE N AREER ARERR ERE RRE REE RE 


TST10: 


aIBs CLEAR CSR. 
176140 #B81T02,a1BS SET REM 
001124 EXPECT ONLY REM TO SET. 
001126 , SDD READ IBS. 
001124 SBDDAT, SaDDAT ;DID REM AND ONLY REM SET? 
1$ YES - CONTINUE 


7 S$$$$$$ES$ESE>>> ERROR <<<$$SSS$SSSS 


ERROR 3 ;/MODULE FAULT DETECTED: 
REM BIT SETTING ERROR. 


Teas + ee ERROR ““*$SSSSSSSSS 


000004 176102 : #B81T02,a1BS ;CLEAR REM BIT. 
001124 $GDDAT sEXPECT ZERO CSR. 
176072 001126 pies ,Secens READ IBS - IS IT CLEAR? 


: :$$$S$$$$S$$ESE>>> ERROR <<<$S$SSSSSSSS 


ERROR 3 ;/MODULE FAULT DETECTED: 
7 IBS FAILED TO CLEAR. 


7; SS$S$S$SSS$*** ERROR “*“SSSSSSSSSS 


LLU ERE TR EERE REE ER EERE RTE Eee 
s*TEST 11 *TEST THAT IBC WILL SET AND CLEAR 
Pret iii i iti iii t iii tit iii titi rrr 


TST11: 


176056 alBs CLEAR CSR. 
176050 #81T03,a1BS SET IBC 
yf bag —— EXPECT ONLY IBC TO BE SET 


@1BS, $8DDA RE 
SCDDAT, SBDDAT :DID IBS SET? 

1$ YES CONT "NUE 
#81T03,a1BS TRY SETTING IBC AGAIN 
@1BS, $BDDAT MEMORY Hg tof MIGHT HAVE 
ate pam ;GOT IN THE WAY 
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003404 


104003 


000416 
004537 
000006 


012737 


104003 
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*TEST THAT IBC WILL SET AND CLEAR 


007122 1$: 


002001 001124 
175754 001126 
001124 001126 


7 S$S$$$$$$ES$>>> ERROR <<<S$$SSSSSSSS 

ERROR 3 3/MODULE FAULT DETECTED: 
;IBS BIT SETTING ERROR. 

Tatas +: ERROR ““*$SSSSSSSSS 


JSR R5,DEL50 DELAY 150 US. 
«WORD 6 
MOV #B1T10!BITO,$GDDAT ;EXP CMD AND TCS. 


MOV aIBS,$BDDAT ;READ IBS - IS IT CLEAR? 
CMP SGDDAT , SBDDAT 
BEQ TST12 $3 


s $$$SE$ESE$EE>>> ERROR <<<$$SSSSSSSS 
ERROR 3 ;/MODULE FAULT DETECTED: 


; IBS NOT CLEAR AFTER IBC 
3; SS$$$S$$SS$$S$*** ERROR “*“SSSSSSSSSS 


RRR AEE EEEKEH 


*STEST 12 *TEST THAT TON (BITOS) AND TKR SET AND CLEAR 
ORC ROA EEEACEALAELALAAALEBCAAAAAEAEEAAEEAES EEE CEES SERRE SE REE RRS RR SERS SO 
rST12: SCOPE 
175732 CLR aIBs :CLEAR THE CSR. 
000040 175724 BIS TON. 


001040 001124 
175712 001126 
001124 001126 


000040 175666 1$: 
901724 
175656 001126 


#B1T5,a1BS ;SET 
MOV 7811318119, SGDDAT ;EXPECT ONLY TON AND TKR TO SET. 
MOV @1BS, $BDDAT READ CSR. 

CMP S$GDDAT , $BDDAT oe THEY BOTH SET? 

BEQ 1$ ;YES - CONTINUE. 


: $$$$$$$EES>>> ERROR <<<S$S$SSSSSSSS 

ERROR 3 :/MODULE FAULT DETECTED: 
sERROR IN SETTING TON BIT. 

: $$$S$$$S$$$*** ERROR “““$SSSSSSSSS 

BR TST13 


BIC #8175. a1BS :WHEN TON CLEARED, TKR SHOULD CLEAR. 
CLR $GDDAT SEXPECT ZERO 

MOV @I1BS, $BDDAT =DID IT tye 

BEQ TST13 i 


SEQ 0031 


G 3 
chang ade a+) ae 19=SEP=78 11:35 PAGE 1-17 
CVIBBA. Tle *TEST THAT TON (BITO5) AND TKR SET AND CLEAR SEQ 0032 


7 SHSS$S$SS$EES>>> ERROR <<<S$$SSSSSSSS 


ERROR 3 ;/MODULE FAULT DETECTED: 


:CSR FAILED TO CLEAR. 
7 $S$S$S$SSS$ES**~* ERROR “““SSSSSSSSSS 
SERRE RRR EERE E ERE RRE REAR ERR EERE EERE ERE RR 


T*TEST 13 *MAKE SURE WE CAN SET AND CLEAR BITO6 (IE) 


VOPR PERERRESZASLESASESE ESAS ERE AR ASAE ARSE RRR RRRR ARR RAS ASA RRA RASA ARS SS 


000004 


012746 
012746 
000002 


005077 
052777 


005037 


T$113: SCOPE 


000340 #340,-(SP) 
003512 #64$ ,-(SP) 


175630 als 


000100 175622 #B1T6,aIBS 
000100 #B1T6,$GDDAT 
175610 @IBS,$BDDAT 
001124 001126 aimee 


77PR 

3/SET CPU PRIORITY ON RETURN 
;/7SHOW RETURN ADDRESS 

;7CAUSE A RETURN (PUTS NEW STATUS 
37IN STATUS REG.) 


;CLEAR CSR. 


ssev iu. 

sEXPECT ONLY BIT 6 TO SET. 
READ IBS. 

:DID IE SET? 

YES - CONTINUE. 


; $$$SS$$$S$$E$>>> ERROR <<<$S$SSSSSSSS 


ERROR 3 


7 $$$$S$S$$$$$*** ERROR 
BR TST14 


001124 1$: S$GDDAT 
000100 175560 #B11T6,a1BS 
175554 001126 oopt, aren 


;/MODULE FAULT DETECTED: 
ERROR IN SETTING IE BIT. 


“““$SSSSSSSSS 


EXPECT ZERO CSR AFTER. 
:1E IS CLEARED. 
;READ CSR - IS IT CLEAR? 


7: S$S$SS$$SS$$ES>>> ERROR <<<S$S$SSSSSSSS 


ERROR 3 


:/MODULE FAULT DETECTED: 
FAILED TO CLEAR CSR. 


3; SSS$SSS$SS$*** ERROR “*“SSSSSSSSSS 


J FRA AAA ARERR REEREREEEARAAERERAERAEAERAEAAERARERRRRAA ED 


TEST 14 *TEST THAT BIT 7 (ACC) CAN BE SET AND CLEARED 


SPUR ARERR AREAAAEAAREAAERAERARAARERERRARRAEERERARRER EEE 
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I P11 *TEST THAT BIT 7 (ACC) CAN BE SET AND CLEARED SEQ 0033 


003600 TST14: 


175540 alBS CLEAR CSR. 
000200 175532 SET ACC. 
000200 . EXPECT ONLY ACC TO SET. 
175520 sREAD IBS. 
001124 001126 $GDDAT,$BDDAT :DID ACC SET? 
1$ YES - CONTINUE. 


7: $$$$S$$$S$$E$>>> ERROR <<<$SSSSSSSSS 


ERROR 3 :/MODULE FAULT DETECTED: 
FAILURE IN SETTING BIT 7 (ACC). 


7; S$$S$$S$S$S$*** ERROR “““SSSSSSSSSS 
BR TST15 


042777 000200 175474 1$: #B1T7,aIBS TRY CLEARING ACC. 
001124 C SGDDAT EXPECT ZERO CSR. 
175464 001126 7) mmanaed READ IBS, IS IT CLEAR? 


7 S$$$$$S$$S$E$SE>>> ERROR <<<S$S$$SSSSSSS 


ERROR 3 ;/MODULE FAULT DETECTED: 
: IBS FAILED TO CLEAR. 


7; S$S$S$$S$SS$*** ERROR ““*S$SSSSSSSSS 


+ RRR ERERERERREEEEEEEEEEERERERERREEEREERERREERERERRRR e 
T*TEST 15 *TEST THAT IBD BIT O CAN BET SET + CLEARED 
RARER ERE EEE EERE ERR RE RRR RR ee 


000004 15115: 


;/MACRO BDT 
012777 000060 175446 #B1T4!BI1T5, es :/SET TON AND LON. 
012737 000001 001124 #B1T0,$GDDAT 7/WE*RE GONNA TEST BIT 0. 
013777 001124 175434 SGDDAT ,a1BD :/SET THE BIT. 


117737 =175430 001126 @18D,$BDDAT ;/READ THE IBD. 
123737 001124 001126 SGDDAT,$BDDAT ;/DID IT GET THRU OK? 
001402 1$ :/YES - CONTINUE. 


te ae i a 
ee Ne Ne Nee ae es ee 


7 S$$S$$$$$S$E$$>>> ERROR <<<$$S$SSSSSS 
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CVIBBA.P11 T15 *TEST THAT IBD BIT O CAN BET SET + CLEARED 


(2) 003732 ERROR 4 ;/MODULE FAULT DETECTED: 
1) 7;7ERROR IN SETTING IBD BIT 0. 


Fama: ; ERROR “““$SSSSSSSSS 


001124 1$: $GDDAT  VEXPECT ZERO IBD WHEN 
000001 175400 #B1T0,a1BD ;/BIT 0 IS CLEARED 
175374 001126 oe + s+ haat :/READ IBD, IS IT CLEAR? 


:;$$$$$$$S$S>>> ERROR <<<S$$$S$SSSSS$ 

ERROR 4 z/MODULE FAULT DETECTED: 
sFAILED TO CLEAR IBD. 

7 SS$S$S$$$S$SE*** ERROR “““SSSSSSSSSS 


LTR EEE EEE REE EEEREEE EEE EEE REE K 


s*TEST 16 *TEST THAT IBD BIT 1 CAN BET SET + CLEARED 


CLARE REE EERE EEE REE EERE EERE EREEREKRREERE REE 


000004 TST16: SCOPE 


;/MACRO BDT 
012777 000060 175354 #B114!BIT5,aIBS :/SET TON AND LON. 
012737 000002 001124 #B1T1,$GDDAT ;/WE'RE GONNA TEST BIT 1. 


013777 001124 175342 SGDDAT ,aIBD :/SET THE BIT. 
117737 175336 001126 @1B0, $8DDAT 2 /READ THE IBD. 


123737 001124 001126 $GDDAT , $BDDAT /DID IT GET THRU OK? 
001402 1$ :/YES - CONTINUE. 


7 $$$S$S$$$$$E>>> ERROR <<<$S$S$SSSSSSS 
ERROR 4 ;/MODULE FAULT DETECTED: 
;/ERROR IN SETTING IBD BIT 1. 
3s SS$SSS$S$$$$*** ERROR ***SSSSSSSSSS 
BR TST17 $2 
SGDDAT :/EXPECT ZERO IBD WHEN 
#B81T1,a1B8D ;/BIT 1 IS CLEARED 


000002 175306 ~~ . 
175302 001126 a18D, SBDDAT ;/READ IBD, IS IT CLEAR? 


7: S$$$$$$SE$$>>> ERROR <<<S$S$S$SSSSSS 


ERROR 4 ;/MODULE FAULT DETECTED: 





CVIBB-A MACY11 27(654) 
-P11 T16 


000004 


012777 
012737 
013777 


117737 
123737 
001402 


000004 


012777 
012737 
013777 


J 3 
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*TEST THAT IBD BIT 1 CAN BET SET + CLEARED 


FAILED TO CLEAR IBD. 
3 S$SS$S$$SSS*** ERROR ““*S$SSSSSSSSS 


LTA E EERE EERE EERE REREEREEEEEREEEEEEREE REE 


g*TEST 17 *TEST THAT IBD BIT 2 CAN BET SET + CLEARED 


LAA ERR RRR REE EEE EERE EERE ERE EEE EEEEEEREERERE EE 


TST17: 


;/MACRO BDT 
000060 175262 #B1T4!BITS, _ :/SET TON AND LON. 
000004 001124 #B1T2,$GDDAT ;/WE'RE GONNA Test BIT 2. 
001124 175250 S$GDDAT ,a1BD :/SET THE BIT. 


175244 001126 @1BD ,$BDDAT ;/READ THE IBD. 


001124 001126 SGDDAT,SBDDAT ;/DID IT GET THRU OK? 
1$ :/YES - CONTINUE. 


s S$SS$$S$S$$EE>>> ERROR <<<$$S$S$S$SSS$SS 


ERROR 4 :/MODULE FAULT DETECTED: 
7/7ERROR IN SETTING IBD BIT 2. 


3; $$SSSS$$S$$*** ERROR “**$SSSSSSSSS 
BR TST20 


001124 1$: EXPECT ZERO IBD WHEN 

000004 175214 R D 3/BIT 2 IS CLEARED. 

175210 001126 IBD, ;/READ IBD, IS IT CLEAR? 
BEQ TST20 i 


7 $$S$S$$$$S$SS>>> ERROR <<<S$$S$S$SSSSSS$ 


ERROR 4 :/MODULE FAULT DETECTED: 
:FAILED TO CLEAR IBD. 


3 S$$S$$$S$S$S*** ERROR “**S$SSSSSSSSS 


ASAIO ISIS IOIIDISIDIOIIOIIISIIISIOISIOIIIIOIIOIIIOISIIDIOIDISIDIOIDIOIIDISIDOIIOIIOINITIOITIDI IDI SIOE 
“TEST 20 *TEST THAT IBD BIT 3 CAN BET SET + CLEARED 
SIE UEIUIUISIIOOIIOIIUIOIIOIUINISIOINISI IOI ISIOIOI ISIS OID IUIOIIOIUIOIOIOIOIUIOIOIOOIIUUIOI rt 


18120: SCOPE 


MACRO BDT 
#B1T4!B1T5,aI1BS i/set TON AND LON. 
#B1T3,$GDDAT 3 /WE "RE a. TEST BIT 3. 
S$GDDAT ,a1BD 3/SET THE BIT 


SEQ 0035 
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CVIBBA.P11 T20 *TEST THAT IBD BIT 3 CAN BET SET + CLEARED 


004172 117737 175152 001126 MOVB @1BD,$BDDAT ;/READ THE IBD. 
094200 001124 001126 CMPB $GDDAT,$BDDAT ;/DID IT GET THRU OK? 
04206 BEQ 1$ 3/YES = CONTINUE. 


: S$$$$$S$ES>>> ERROR <<<S$S$SSSSSSSS 


ERROR 4 ;/MODULE FAULT DETECTED: 
;7ERROR IN SETTING IBD BIT 3. 


a caeaeaas 5 ERROR “**$SSSSSSSSS 


SGDDAT S7EXPECT a, IBD WHEN 
#B1T3,a18D :/BIT 3 IS CLEARED. 
IBD, $BDDAT ; /READ 18D, IS IT CLEAR? 
BEQ TST24 33 


3: S$$$$$S$$S$$E>>> ERROR <<<S$$$S$SSSSS 


ERROR 4 :/MODULE FAULT DETECTED: 
FAILED TO CLEAR IBD. 


3 -S$$SS$$S$S$S*** ERROR “**S$SSSSSSSSS 


DIR IA ROO OISISI IOI ISIOIDIIISISISISIIIIOIOIOIDIOIOIOIIOICIIOIUIOIOIUITIOITIIOI IOI IOI TOTTI I TOI TE 
i*TEST 21 *TEST THAT IBD BIT 4 CAN BET SET + CLEARED 
DUIS ISSAC IOISIOIOISIOIIISISISIOISIOIOIIOIOIIOIOI ICICI TOR TOIT TOI TOIT TOT TOI TE 


000004 TST21: 


;/MACRO BDT 
012777 175076 #B1T4!B1TS,aIBS :/SET TON AND LON. 
012737 #B1T4,$GDDAT 7 /WE'RE a. TEST BIT 4. 
013777 $GDDAT ,aI1BD :/SET THE BIT 


117737 @1BD,$8DDAT ;/READ THE IBD. 
123737 MPB $GDDAT , SBDDAT ‘Mves IT GET THRU OK? 
001402 1$ ;/YES - CONTINUE. 


a tae Te Tae hi a fe ee ht 


to oe wo 
ee Nee eee ee es ae 


3: $$$$$$$$S$$>>> ERROR <<<$S$$SSSSSSS 
ERROR 4 ;/MODULE FAULT DETECTED: 
;7ERROR IN SETTING IBD BIT 4. 
eens: ERROR “““$SSSSSSSSS 
001124 : CLR $GDDAT :VEXPECT ZERO IBD WHEN 
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CVIBBA.P11 T21 *TEST THAT IBD BIT 4 CAN BET SET + CLEARED SEQ 0037 


042777 000020 175030 BIC #BIT4,a1BD ;/BIT 4 IS CLEARED 
bovebe 175024 001126 +S 2180, SODDAT : /READ IBD, IS IT CLEAR? 


3s $$S$E$S$$$E$S>>> ERROR <<<S$S$SS$SSSS$S 

ERROR 4 ;/MODULE FAULT DETECTED: 
sFAILED TO CLEAR IBD. 

3; $$SSS$S$SSS$*** ERROR *““SSSSSSSSSS 


FL RRR REE RERERER EERE RE REE KER EEE REE EREREREREKKEREKEREKEEEEEREEE 


s*TEST 22 *TEST THAT IBD BIT 5 CAN BET SET + CLEARED 


LARA ERE REE ERE EEE REE ERR EERE EERE REE EEKRKKEREEREKEEEERER 


000004 TST22: SCOPE 


:/MACRO BDT 
012777 000060 175004 #BIT4!BITS,aIBS ;/SET TON AND LON. 
012737 000040 001124 #B1T5,$GDDAT :/WE"RE GONNA TEST BIT 5. 
013777 001124 174772 $GDDAT ,@I1BD :/SET THE BIT. 


117737 174766 001126 IBD ,$BDDAT 2 /READ THE IBD. 
001124 001126 enw enone ;/DID IT GET THRU OK? 


:/YES = CONTINUE. 


7 $SS$S$$$S$SS$>>> ERROR <<<$S$S$SSSSSSS 
ERROR 4 ;/MODULE FAULT DETECTED: 
;/ERROR IN SETTING IBD BIT 5. 
3 $$S$S$$S$$$$*** ERROR ““*$SSSSSSSSS 
BR TST23 
001124 1$: C DAT EXPECT ZERO IBD WHEN 
000040 174736 :/BIT 5 IS CLEARED. 


174732 001126 @1BD, $BDDAT ;/READ IBD, IS 1T CLEAR? 
BEQ TST23 3 


7 SS$S$SS$$$$$EE>>> ERROR <<<$S$S$SSSSS$$E 

ERROR 4 ;/MODULE FAULT DETECTED: 
[FAILED TO CLEAR IBD. 

3 SS$$$SSS$$*** ERROR ***SSSSSSSSSS 


CL RRR EERE EERE ERE REE REE EERE EERE EERE REE ERE ERE ERE REE 
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CVIBBA.P11 T23 *TEST THAT IBD BIT 6 CAN BET SET + CLEARED 


s*TEST 23 *TEST THAT IBD BIT 6 CAN BET SET + CLEARED 


Fi REE REEEEEEEEEREEKK KEKE EEEREEEEEKEEEEKEKK 


000004 T$T23: 


:/MACRO BDT 
012777 000060 174712 #B1T4!B1T5, _— :/SET TON AND LON. 
012737 000100 001124 #B1T6,$GDDAT 3/WE'RE GONNA TEST BIT 6. 
013777 001124 174700 S$GDDAT ,aIBD :/SET THE BIT. 


117737 174674 001126 @1BD,$BDDAT 3;/READ THE IBD. 
123737 001124 001126 $GDDAT,$BDDAT ;/DID IT GET THRU OK? 
001402 1$ :/YES - CONTINUE. 


Ce et ee a i ee ee a i 
dd ed el 


3 S$$$$$$$$$$>>> ERROR <<<$S$$SSSSSSS 


ERROR 4 :/MODULE FAULT DETECTED: 
;7ERROR IN SETTING IBD BIT 6. 


; ; $$$$$S$$S$$*** ERROR “**$SSSSSSSSS 
BR TST om 


1$: C $GDD. :VEXPECT wr IBD WHEN 
174644 #51 76,180 ;/BIT 6 IS CLEARED. 
174640 001126 VB 733" mate + /READ IBD, IS IT CLEAR? 


3 S$$S$$$$S$E$>>> ERROR <<<S$$S$SSSSSSS 


ERROR 4 :/MODULE FAULT DETECTED: 
FAILED TO CLEAR IBD. 


3; SS$$S$$S$$*** ERROR “““S$SSSSSSSSS 


DRACO SII IDIOIOIIOIIDIIIIIIIIOIIOI IOI IOI IOI IOI OI OO I TOT OTT TOT OT TE TE 
i*TEST 24 *TEST THAT IBD BIT 7 CAN BET SET + CLEARED 
SIUC ISI IIIS SOI ISIEI IOI OIOIIOIOIO ICIS IOIOIDI ICIS IIIS IIDC OID 


000004 TST24: 


:/MACRO BDT 
012777 000060 174620 #B81T4!B1T5,aI1BS :/SET TON AND LON. 
012737 000200 #B1T7,$GDDAT 3/WE*RE GONNA TEST BIT 7. 
013777 1746 $GDDAT ,aIBD :/SET THE BIT. 


117737 @1BD,$BDDAT 3;/READ THE IBD. 
123737 MPB $GDDAT,$BDDAT ;/DID IT GET THRU OK? 
001402 1$ 3/YES = CONTINUE. 


nA RAR RRRARAA 
M2 a a a 
ee Ne Ne Nee ee ee 
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11 T24 


CVIBBA.P 


004640 


104004 


104002 


000004 


005077 
005077 
032777 


N 3 
19-SEP-78 11:35 PAGE 1-24 
*TEST THAT IBD BIT 7 CAN BET SET + CLEARED SEQ 0039 


7: S$$$S$$S$$$S$>>> ERROR <<<S$S$$$SSSSSS 
ERROR 4 ;/MODULE FAULT DETECTED: 
+ /ERROR IN SETTING IBD BIT 7. 
| cass: “i ERROR “““$SSSSSSSSS 
BR ST25 


001124 1$: CLR SQDDAT :7EXPECT ZERO IBD WHEN 
000200 174552 BIC #B1T7,aI1BD :/BIT 7 IS CLEARED. 
174546 001126 sy —_— ;/READ IBD, IS IT CLEAR? 


7: S$$$$$E$E$$E$S$>>> ERROR <<<S$$S$SSSSSS 

ERROR 4 ;/MODULE FAULT DETECTED: 
;FAILED TO CLEAR IBD. 

7; S$S$S$$$$S$$$*** ERROR “““SSSSSSSSSS 


SII III ITI IOI III III IT II III III ISI IIIS AIS NII SSIS SD II SAI ISIS ISS ASC 


ATEST 25 *TEST THAT NO DATA GETS XFERRED, IF NOT ENABLED 
BRIO OOOO DIICIAIIOISIIOII IOI IOI OI TOT TOTO TOTO TOTO TOT I TOTO TOTO TT OTE 
+8125: SCOPE ‘ 
174530 CLR a18S ;CLEAR CSR 
000252 174524 MOVB #252, a1BD TRY XFERRING DATA 
001124 CLR SGDDAT ZNO DATA SHOULD XFERR 
174514 001126 <2 1 haemmaaa ;READ BUFFER REG. 


:S$$$$$$$$E$>>> ERROR <<<$$$S$SSSSSS 


ERROR 2 ;/MODULE FAULT DETECTED: 
DATA WAS XFERRED THROUGH IBD 
sEVEN THOUGH TON AND LON CLEARED. 
[SIGNAL ‘ENB XFER L'* PROBABLY 
STUCK LOW. 


7; S$$$$$$$$$*** ERROR ***S$SSSSSSSSS 


RII III ITO IIIT TOR IIT IIIT II ITI I AAAI AIA IAI II SISA SSS III I 


SRTEST 26 *TEST IBD BITS DAC, AND DAV 
TOES IOS ICICI SISICICICOIOIS INICIO IOI ICIS IOI TOTO IIT TIT TTI TTT TIT TIE 
TST26: SCOPE 

174476 CLR aIBS CLEAR CSR. 

174474 CLR aIBD CLEAR DATA REG. 


000400 174466 BIT #B1T8,a1BD 31S DAC SET? 


CVIBB-A MACY11 oS mig 


CVIBBA. 


591 
592 


P11 
004662 


004 764 


001002 


104002 


000437 
052777 


104002 


000420 
012777 


001402 
104002 
000405 
032777 


001401 


104002 


19-SEP-78 
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*TEST IBD BITS DAC, AND DAV 


000060 
174410 
000400 


001000 


4$: 


174450 


001126 


174412 1$: 


174402 


174366 3$: 


BNE 4$ sYES (GOOD) 
: ; $$$S$$$$$$$>>> ERROR <<<$$$S$SSSSS$ 


ERROR 2 ;/MODULE FAULT DETECTED: 
[DAC NOT SET. 


| amas <3: ERROR “**$SSSSSSSSS 
BR TST27 


BIS #B1T5!BIT4!BIT7,aIBS ~~ TON AND LON 


MOV #252,a1BD PUT DATA IN IBD. 
MOV @1BD,$BDDAT ;READ IBD. 

BIT #8179, $BDDAT :DID DAV SET? 
BNE 1$ :YES = CONTINUE. 


3; $$$$$$$$E$$E>>> ERROR <<<$S$$SSSSSSS 


ERROR 2 :/MODULE FAULT DETECTED: 


DAV FAILED TO SET. 
eas: ERROR “*““$$$$SS$SSSS$ 
BR ST27 


oe 


MOV #BIT4!BITS,@IBS ;CLEAR ACC. 

TSTB aIBD READ LOW BYTE * IBD. 
BIT #B1T8,a1BD [DID DAC CLEAR 

BEQ 3$ svES = CONTINUE . 


s$$$$$$S$$S$>>> ERROR <<<$$S$S$S$SSSSS 


ERROR 2 3/MODULE FAULT DETECTED: 


:DAC FAILED TO CLEAR. 
7; S$$$$SS$$$ES*** ERROR ““*S$SSSSSSSSS 
BR TST27 23 
BIT #B1T9,aIBD ;DID DAV CLEAR? 
BEQ TST27 23 


:$$S$$$$$$$$>>> ERROR <<<S$S$S$S$SSSSSS 


ERROR 2 :/MODULE FAULT DETECTED: 


DAV FAILED TO CLEAR. 
3; SS$$$S$$SS$S$*** ERROR “**SSSSSSSSSS 


SEQ 0040 
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CVIBBA.P11 T26 *TEST IBD BITS DAC, AND DAV 


;/MACRO -SIGC- 


DIRS ROSIIISIOISUIEISIISIIISISISISIIIDIOIIIOIIDIOIIIDIOIDIOIIOIIOISIOIUIOIDIIDIOIOIOIIIOIOIINIUIOIIOI 
i*TEST 27 *TEST THAT REN SETS WHEN REM SETS, ALSO TEST CLEAR 
SOIREE ISIS IO ISOISIIIISIISISIIOIOUIOIOIIIDIOIIIISIIDIOIIUISISIIIIIIOIIOIIOIINIOINDI 


000004 TST27: 


005077 174352 aIBs /CLEAR CSR. 
174344 #B1T2,a1BS :/SET REM, SHOULD SET REN. 
174340 #B1T12,a18D :/DID REN SET 
1$ /YES - LETS TRY CLEARING IT. 
052777 174326 #B1T2,a1BS S/SET REM, MEMORY 
;/REFRESH COULD HAVE 
:/ INTERRUPTED US. 
032777 174322 #B1T12,a1B8D :/DID REN SET THIS TIME? 
001002 1$ 


BELLE LL LO 
ee 


:$$$S$$$$$$S>>> ERROR <<<$S$S$S$S$SSS$S$ 


ERROR 2 ;/MODULE FAULT DETECTED: 
7/REN FILED TO SET WHEN REM SET. 


3: S$S$S$SS$S$*** ERROR “**SSSSSSSSSS 
BR TST30 $2 


174304 : BIC #B1T2,a1BS [7CLEAR REM, SHOULD CLEAR REN. 
174300 BIT #81T12,a1B8D :/DID REN CLEAR? 


BEQ TST30 3 
:$$S$$$$$$SS$>>> ERROR <<<$S$S$SSSSSSS$ 


ERROR 2 ;/MODULE FAULT DETECTED: 
;/REN FAILED TO CLEAR. 


3; S$$S$$S$S$S$*** ERROR ““*S$SSSSSSSSS 


;/MACRO -SIGC- 


eC i Titi i titi tii iii iit itis 
i*TEST 30 *TEST THAT IFC SETS WHEN IBS SETS, ALSO TEST CLEAR 
EPIC it titi iiit iii iii iii titi titi itii iti iii Peri Pers) 


TST30: 


alBs :/CLEAR C 
174256 #B1T3,a1BS /SET Bs "SHOULD SET IFC. 
174252 #81713, a1BD :/DID IFC SET? 
1 /YES = LETS TRY CLEAR'NG IT. 
052777 174240 #8173, a1BS S7/SET IBS, MEMORY 
+ /REFRESH COULD HAVE 
INTERRUPTED US. 


ee a ed ot et 
ee Ne Ne ee le 
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CVIBBA. 


ee at te ee i a 
MWe? eS Ss 
ee a ed 


Ce ee ee ee ee ee a 
he SS ws a 
ee Nee Ne Ne Nee ee le ee 


~ 
Mr 
~ 


P11 


005106 
005114 


032777 
001002 


104002 


000411 


032777 
001374 


032777 
001401 


1011 
052777 


032777 
001002 
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*TEST THAT IFC SETS WHEN IBS SETS, ALSO TEST CLEAR 


020000 174234 a * “ihiactaae ;/DID IFC SET THIS TIME? 


3 S$$$$SS$$SS$$SS$>>> ERROR <<<$S$SSSSSSS 


ERROR 2 ;/MODULE FAULT DETECTED: 
:/IFC FILED TO SET WHEN IBS SET. 


; ;SS$$SS$SS$S$*** ERROR “**SSSSSSSSSS 
BR TST31 


“* 
oe 


000010 174216 1$: od iene ;/WAIT FOR IBS TO CLEAR. 


020000 174210 BIT #81T13,a1BD 3;/7IBS CLEAR, DID IFC CLEAR? 
BEQ TST31 a 


S$S$$S$SS$E$SE>>> ERROR <<<$$S$SSSSSSS 


ERROR 2 ;/MODULE FAULT DETECTED: 
37IFC FAILED TO CLEAR. 


7: S$S$S$SES$*** ERROR “*“S$SSSSSSSSS 


;/MACRO ~-SIGC- 


LER EERE TERRE REE EEE ER Ee 
i*TEST 31 *TEST THAT ATN SETS WHEN TCS SETS, ALSO TEST CLEAR 
CRRA ARERR ERR ERE REE EERE ERR ERR RRR 


1§131: 


174174 aIBs /CLEAR CSR. 
000001 174166 #B1T0,a1BS :/SET TCS, SHOULD SET ATN. 
040000 174162 #B1T14,aI1BD :/D1D ATN SET? 
1$ /YES = LETS TRY CLEARING IT. 

000001 174150 #B1T0,aI1BS S/SET TCS, MEMORY 

:/REFRESH COULD HAVE 

;/INTERRUPTED US. 
040000 174144 * ‘allacaeaee 3;/DID ATN SET THIS TIME? 


7; S$$$$$$SS$$ES$>>> ERROR <<<S$$SSSSSSSS 


ERROR 2 :/MODULE FAULT DETECTED: 
;/ATN FILED TO SET WHEN TCS SET. 


7: S$$$$$S$$S$S*** ERROR “**SSSSSSSSSS 


SEQ 0042 
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CVIBBA.P11 131 *TEST THAT ATN SETS WHEN TCS SETS, ALSO TEST CLEAR 


000410 BR TST32 MY 

042777 000001 174126 18%: BIC #B1T0,01BS 3/CLEAR TCS, SHOULD CLEAR ATN. 
032777 040000 174122 BIT #81114, a18D ;/DID ATN CLEAR? 

001401 BEQ TST32 


 ;$$$$S$SSEEE>>> ERROR <<<$$$SSSSSSS 


ERROR 2 ;/MODULE FAULT DETECTED: 
;7ATN FAILED TO CLEAR. 


7; S$$S$$S$S$$*** ERROR “*““SSSSSSSSSS 


;/MACRO -SIGC- 


DEERE SEER OIEIIOIOIIISIEIIIIIIIUIIDIUIIOIIIIOIIIOIIUIDIIIIUIIUIIIUIUIIER tit 
i*TEST 32 *TEST THAT EOI SETS WHEN EOP SETS, ALSO TEST CLEAR 
PETC TITITIII ITI TTL ILL LIT LLL LLL LLL eto 


18132: 


aIBS :/CLEAR CSR. 
174100 #B1T1,aI1BS */SET EOP, SHOULD SET EOI. 
174074 #B1T15, a1BD :/DID EOI SET? 
1$ 7YES = LETS TRY CLEARING IT. 
052777 174062 #8111, a1BS </SET EOP. MEMORY 
* /REFRESH COULD HAVE 
*/ INTERRUPTED US. 
032777 174056 #81715, a1BD */DID EOI SET THIS TIME? 
001002 1$ 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


wee ee weweveeeww 


7 S$$$$$$S$$SS>>> ERROR <<<$S$$SSSSSSS 
ERROR 2 ;/MODULE FAULT DETECTED: 
3;/EOI] FILED TO SET WHEN EOP SET. 
Yee ERROR “*“*S$$SS$SSS$SSS 
BR TST33 : 


174040 1$: ! #B1T1,a1BS *7CLEAR EOP, SHOULD CLEAR EOI. 
174034 B welts, alBD */DID EOI] CLEAR? 


3: S$$$$$S$$$SS>>> ERROR <<<S$$SSSSSSSS 


ERROR 2 ;/MODULE FAULT DETECTED: 
;7EOI FAILED TO CLEAR. 


7: SS$$S$SSS$SS*** ERROR “**SSSSSSSSSS 
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T32 *TEST THAT EOI SETS WHEN EOP SETS, ALSO TEST CLEAR 


RARER RARE RERERAERARRAEEEERRREEREREEEEEREEEEEREEKEEEEE 


TeTEST 33 *TEST THAT RFD SET WHEN CSR CLEAR,CLEAR WHEN ACC SET 


SRR RARER ERR RRR EE EEE ERE ERE REAR EERE RE EERE EERE ERE EO HE 


1S133: SCOPE 


174020 CLR alBs CLEAR CSR. 
002000 174014 BIT #B81T10,a18D 2010 RFD SET? 
BNE 1$ YES CONTINUE. 


;$$$$$$$$$E>>> ERROR <<<S$$SSSSSSSS 


ERROR 2 ;/MODULE FAULT DETECTED: 
:RFD FAILED TO SET. 


3 S$SSS$S$$$E$S*** ERROR ***S$SSSSSSSSS 
000410 BR TST34 sé 


052777 000200 173776 1$: #B1T7,aI1BS NOW SET ACC,RFD SHOULD CLEAR. 
Bees 002000 173772 Se :DID IT CLEAR? 


: ;S$$S$$$$E$E>>> ERROR <<<S$$SSSSSSSS 


ERROR 2 ;/MODULE FAULT DETECTED: 
RFD FAILED TO CLEAR. 


3: S$$$$$S$$$E$*** CRROR “““S$$SSSSSSSS 


ISA IAO SUIS OISIIISIIIOIIISISIDISIIIIOIIOIOIOIOIOIOIIOICIUIOIIIOINIOICIIOIIIOITI IOC IIIT TIT 
*TEST 34 *TEST THAT WE CAN GENERATE AN ER2 


SDT RI EERE ERE RRR REE REE RE RERERERER EERE REE 


000004 15734: SCOPE 


005077 173756 CLR aIBS ;CLEAR THE STATUS REG. 

052777 000041 173750 BIS #BITS!BITO,@IBS ;SET TON; THIS SHOULD CAUSE AN 
ERROR SENCE NO LISTENERS ARE ON 

105077 173746 CLRB aIBD [AND WE SENT DATA TO THE BUS. 


;BuS. 
032777 040000 173736 BIT #B1T14,aI1BS :DID ER2 SET? 
001001 BNE TST35 gs 


3; $$$$$$$$E$SSE>>> ERROR <<<S$$S$SSSSSS 


ERROR 1 3;/MODULE FAULT DETECTED: 
;ER2 FAILED TO SET. 
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IBBA.P11 134 *TEST THAT WE CAN GENERATE AN ER2 


3; SS$S$$SSS$$S$*** ERROR “*“S$SSSSSSSSS 


LL AAR A RR AERAERERRREEREE EERE EERE REREEEREERRER RRR RRREEH 


;*TEST 35 *TEST THAT BUS INIT CLEARS ACC,TON,LON,REM,EIP,TCS 


SL RARER RARER EEEE EEE EERE REREEEEEREEEEEEREREEKERKE 


000004 TST35: SCOPE 
012737 000005 001160 MOV #S,STIMES 3:D0 5 ITERATIONS 


012777 000367 173714 MOV #367,a1BS :SET ACC,TON,LON,REM,EOP, AND TCS. 
5 RESET ; ISSUE SYS INIT 


00000 ° 
105777 173706 TSTB aIBS :DID THEY ALL CLEAR? 
001401 BEQ TST36 $8 


3: S$$$$S$$S$$S$>>> ERROR <<<$S$SSSSSSSS 


ERROR 1 ;/MODULE FAULT DETECTED: 
;BUS INIT FAILED TO CLEAR CSR. 


3; SS$S$SS$S$*** ERROR “*“S$SSSSSSSSS 


ZUR A EAU ISIOID ISIS ISIS IIDIIISIIIOIIOIIOIIOIOIOIIOIIOIIOIOIUIIOIUIOIOI IORI 
i*TEST 36 *TEST IBC CLEARS ACC,TON,LON,REM AND EOP 
DIBA EIA UIE UISIISIIISIIISIISISIOIIIIIIOIIOIIOIDIOIIOIIUIDIOIOIOIIIOIOIIIIIOIIOIIOINIOIUOINOI I It 
000004 TST36: 
012737 001160 MO #5, $TIMES ::D0 5 ITERATIONS 


012777 173664 #266,a1BS :SET ACC, TONLON,REM, AND EOP. 
173656 #8113, a1BS TSET IBC, THIS SHOULD CLEAR ABOVE BITS. 
173650 : #B81T3,a1BS [WAIT TILL IBS CLEARS 


1$ : 
173640 #266, a1BS ‘DID THEY CLEAR? 
TST37 i 


s$$S$$$$$$$$>>> ERROR <<<S$$S$S$SSSSSS$ 


ERROR 1 : /MODULE FAULT DETECTED: 
ACC,TON,LON,REM, AND/OR EOP 
FAILED TO CLEAR ON IBC 


3; SS$$$SSSSSS*** ERROR “““SSSSSSSSSS 


Ritts ii iitiiiititiiiiiit iii iii rir 
i*TEST 37 *TEST THAT BUS INIT INDIRECTLY CLEARS IBD 
EPee titi iiititii titi iittiiiiii tii iitii iii tility) 
TST37: SCOPE 

000005 001160 MOV #5, $TIMES 3:D0 5 ITERATIONS 


000260 173616 MOV PS el re SET ACC,TON, AND LON. 
000377 173612 MOV #377,a LOAD’ IBD 
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005546 


000005 
105777 
001401 


104002 


652777 
012746 
012746 
000002 


000240 
000240 


104001 


000402 


062706 
005077 


013777 
012777 


19-SEP-78 


11:35 PAGE 1 


H 4 


-31 
*TEST THAT BUS INIT INDIRECTLY CLEARS IBD 


173604 


173570 
000200 
005622 
000101 


000000 
005612 


000004 
173514 


001406 
004700 


173622 
173570 
173546 


173522 
173540 


ot SYS_INIT. 


RESET il 
TSTB a1BD :D D IT CLEAR? 
BEQ TST40 oe 


:S$SS$S$$$$$S$>>> ERROR <<<$S$$SSSSS$S$ 


ERROR 2 :/MODULE FAULT DETECTED: 
FAILED TO CLEAR LOW BYTE OF IBD ON 
SYSTEM INIT. 


7; S$$S$S$$S$$S$*** ERROR “““SSSSSSSSSS 


INTERRUPT TESTS 


FLARE EERE EERE RETR EEREEREEERRREERERE EERE EERE 


i*TEST 40 *TEST THAT CMD CAN GENERATE AN INTERRUPT B 


DLR EERE ERR ER ERE ERE EERE EERE EEE EEE EERE EERE EK 


TST40: 


64$: 


1$: 
2s: 


SCOPE 


CLR aIBs ;CLEAR THE CSR. 

MOV #200, aPRC 

MOV #1$,avECTC SET UP INTERRUPT VECTOR 
BIS #BITO!BIT6,aIBS ; Orr TCS, SHOULD CAUSE 


MOV #0,-(SP) [/SET CPU PRIORITY ON RETURN 
MOV #64$,-(SP) :/SHOW RETURN ADDRESS 


RTI :/CAUSE A RETURN (PUTS NEW STATUS 
37IN STATUS REG.) 

NOP :CMD TO SET AND GIVE US AN 

NOP ; INTERRUPT. 


7 S$$$$$$$$$S>>> ERROR <<<$$S$SSSSS$S 


ERROR 1 ;/MODULE FAULT DETECTED: 


;CMD FAILED TO GENERATE AN INTERRUPT. 


3: S$S$S$S$$S$*** ERROR ““*S$S$SSSSSSSS 

BR 2s 

ADD #4 ,SP ;/ADD #4 TO STACK POINTER. 
CLR aIBS :CLEAR INTER RUPT 


MOV PRC, aVECTC ;/RESTORE VECTOR FOR 
MOV #4700, aPRC :7ILLEGAL INTRO. 


DLR RARER EEE EERE RK ERE EEE EKER EEE EERE EERE EERE RR EE 


i*TEST 41 *TEST THAT TKR AND LNR CAN GENERATE INTERRUPTS 


SAREE EERE REE EEE ERE EKER REE REAR R RE RE REE 


SEQ 0046 


I 4 
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IBBA.P11 *TEST THAT TKR AND LNR CAN GENERATE INTERRUPTS 


TST41: 
000200 V #200, 7 
005742 #1$,aVECTC > SET en yey VECTOR FOR TKR INTERRUPT 
000060 walie Bits. alBs : ET LON 
052777 000100 173446 #B1T6,aI1BS “ALLOW OINTERRUPT 


012746 000000 #0,~(SP) :/SET CPU PRIORITY ON RETURN 

012746 005712 #64$,-(SP) :/SHOW RETURN ADDRESS 

000002 3;7CAUSE A RETURN (PUTS NEW STATUS 
:7IN STATUS REG.) 

000240 

000240 


3: S$$$$$$$$$>>> ERROR <<<S$$S$$S$S$SS 


104001 ERROR 1 ;/MODULE FAULT DETECTED: 
;FAILED TO GENERATE A TKR INTERRUPT. 


7 SSS$S$$ILS$$*** ERROR ***S$SSSSSSS$SS 
005077 173422 CLR alBs += Bn 

013777 001406 173430 MOV PRC, ,aVECTC : /RESTORE VECTOR FOR 
012777 004700 173446 MOV #4700, PRC ;7ILLEGAL INTRO. 
000443 TST42 33 


062706 : #4,SP z/ADD 6 TO STACK POINTER. 


RESV 
/ 013777 7 PRC, ro. ;/RESTORE VECTOR FOR 
#4700,a :7ILLEGAL INTRO. 
#300, aPRD_ 
012777 #2$,aVECTD yt UP FOR LNR INTERRUPT. 


012746 000000 #0,-(SP) :7SET CPU PRIORITY ON RETURN 

012746 MOV #65$,-(SP) /SHOW RETURN ADDRESS 

000002 :/ CAUSE A RETURN (PUTS NEW STATUS 
37IN STATUS REG.) 

105277 173334 INCB aIBD [SEND DATA ~ CLRS TKR SETS LNR 
FOR INTERRUPT 

000240 NOP 


000240 NOP 
7; S$$$$$$E$$$$>>> ERROR <<<$$S$SSSSSS 
ERROR 1 :/MODULE FAULT DETECTED: 


“FAILED TO GENERATE LNR INTERRUPT 
:  S$$$$$$$$$**°* ERROR ***$SSSSSSSSS 
BR 3$ 
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1BBA.P11 *TEST THAT TKR AND LNR CAN GENERATE INTERRUPTS 


006024 23: 
006024 062706 000004 ADD #4 ,SP 3/ADD #4 TO STACK POINTER. 
006030 005077 173312 3$: CLR aIBs CLEAR THE STATUS REG. 


;/-RESV- 
013777 001410 MOV PRD,@VECTD ;/RESTORE VECTOR FOR 
012777 004700 MOV #4700 ,aPRD :/ILLEGAL INTRO. 


ZARA OSORIO SIDS IIDISIISISIISIIIIIICIIOIIOIIIIIIOIOIIOIIIOIOITIOIOII IOI IIT TIO TTT IEE 
i*TEST 42 *TEST THAT ER2 CAN GENERATE AN INTERRUPT 


SIRI RE ERE EERE REE REE ERE ERE REE EERE REE EH 


000004 TST42: 


005077 173270 aIBS START WITH CSR CLEAR 
012777 173316 #200, aPRA 
012777 173264 #1$,aVECTA ‘= UP INTERRUPT VECTOR 


012746 #200,-(SP) 3/SET CPU PRIORITY ON RETURN 

012746 #64$,-(SP) 3/SHOW RETURN ADDRESS 

000002 7;/CAUSE A RETURN (PUTS NEW STATUS 
: 37IN STATUS REG.) 

052777 000140 173234 #BITS!BIT6,aIBS ;SET TON - NO LISTNERS ON 

105077 173232 aIBD -BUS BUT DATA PUT ON 

000240 OP BUS - THEREFORE AN INTERRUPT 

000240 : SHOULD BE POSTED. 


012746 000000 #0,-(SP) :7SET CPU PRIORITY ON RETURN 

012746 006134 #65$,-(SP) /SHOW RETURN ADDRESS 

000002 :/ CAUSE A RETURN (PUTS NEW STATUS 
:7IN STATUS REG.) 

000240 


anAaAnn 
oo et 
Nweeww 


3 


798 
799 
800 
801 
(1) 
(1) 
(1) 
(1) 
802 
803 
804 


s:$$$SS$$ES$ESE>>> ERROR <<<$$SSSSSSSS 
104001 ERROR 1 ;/MODULE FAULT DETECTED: 
*FAILED TO INTERRUPT ON ERROR2 


3; S$$$$S$$$E$SS*** ERROR “**S$SSSSSSSSS 
000402 BR 2$ 


062706 000004 ADD #4, SP 3;/ADD #4 TO STACK POINTER. 
005077 173174 : CLR alBs CLEAR CSR 


+ /=RESV- 

013777 001402 173176 MOV PRA, @VECTA ;/RESTORE VECTOR FOR 
012777 004700 173214 MOV #4700,aPRA :/ILLEGAL INTRO. 
.SBTTL 
“SBTTL SECOND MODULE TESTS 

* SBTTL 


DD RIE EERE EERE ERE REE EERE RE EERE REE 


i*TEST 43 *TEST THAT MODULE PASSES *BIAKI"’ 
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CVIBBA.P11 143 *TEST THAT MODULE PASSES ‘BIAKI"’ 


FY RRR RRR EERE REE EERE KEE KEKE EEKEEEEEKEEEK 


006166 000004 TS143: SCOPE 


z*WARNING! THIS TEST IS DESIGNED TO BE EXERCISED 3 A 
*SECOUND MODULE (IBV-11) WITH SWITCH ‘ER1 INH’ 

:*ADDRESS OF THE SECOUND MODULE IS IN LOCATION ipso" VECTOR 

[*ADDRESS IS IN LOCATION ‘VECTA2’'. THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
:*TO INHIBIT THE USE OF TESTING WITH A SECOUND MODULE, MAKE 

7*LOCATION 'SCDW1"’ ZERO. 

<% 


$CDw1 TESTING WITH 
3$ ;SECOUND IBV11? 
EOP :NO-END PASS. 


;CLEAR CSR. 
aIBS2 [CLEAR SECOUND MODULE. 
#200,aPRC2 


000200 
012777 #1$,aVECTC2 SET UP VECTOR ADDR. 


37PR 
012746 000000 #0,~-(SP) :/SET CPU PRIORITY ON RETURN 
012746 #64$ ,-(SP) :/SHOW RETURN ADDRESS 
000002 :/ CAUSE A RETURN (PUTS NEW STATUS 
64$: /IN STATUS REG.) 
012777 173120 #BIT6!BITS, aiBs2° ;SET INTR ENABLE AND TON ON SECOUND 
; IBV - SHOULD CAUSE A TKR INTERRUPT. 


3s $$S$$$$$$SS>>> ERROR <<<S$S$$S$S$SSSSS$ 


ERROR 1 :/MODULE FAULT DETECTED: 
;ASSUMING SECOUND MODULE IS GOOD, 
[MODULE (IBV-11) UNDER TEST FAILED 
TO PASS Q BUSS SIGNAL ‘BTAK 


+ :$$$$$$$$$$*** ERROR “**SSSSSSSSSS 

000402 BR 2$ 

062706 ; ADD #4,SP :/ADD #4 TO STACK POINTER. 
005077 : CLR a1Bs2 ;CLEAR SECOUND MODULE 


RESV 
013777 MOV PRC2,aVECTC2 s7ni STORE VECTOR FOR 
012777 MOV #4700, aPRC2 ;7ILLEGAL INTRO. 


DISS AIIOIIIOSISISISISIOISIOIIIOIIIOINIEIIISIDIOIIOIIIOINIOIOIIOISIOIIOIOIIOIOIDIOIIOI IDIOT II TOI 
i*TEST 44 *TEST THAT SRQ CAN GENERATE AN INTERRUPT 
OTe t iii ii iii iiitiitiiititiiiiiiiiitiitiiiti lito tii, 
TST44: SCOPE 
s*WARNING! THIS TEST IS DESIGNED TO BE EXERCISED bee A 
7*SECOUND MODULE (IBV-11) WITH SWITCH 'ER1 INH'’ SET 





CVIBB-A MACY11 > a 19-SEP-78 11:35 PAGE 1-35 
CVIBBA.P11 *TEST THAT SRQ CAN GENERATE AN INTERRUPT SEQ 0050 


;*ADDRESS OF THE SECOUND MODULE IS IN LOCATION *‘IBS2"’ VECTOR 

:*ADDRESS IS IN LOCATION 'VECTA2'’'. THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
:*TO INHIBIT THE USE OF TESTING WITH A SECOUND MODULE, MAKE 

: *LOCATION "$SCDw1"' ZERO. 


005077 173036 aIBs 3CLEAR CSRS. 
005077 173052 aIBS2 


012777 000200 173062 #200, @PRB SET UP INTERRUPT VECTOR. 
012777 006366 173030 #1$,aVECTB 


37PR 
012746 000000 #0,~-(SP) 3:/SET CPU PRIORITY ON RETURN 
012746 006342 #64$ ,-(SP) :/SHOW RETURN ADDRESS 
000002 ; /CAUSE A RETURN (PUTS NEW STATUS 


012777 000100 172776 #100, et é 

052777 100000 173010 #B1T15,a1BS2 TSETTING SRQ IN THE ‘‘CDwW'' MODULE 
;WILL PUT SRQ ON THE IB BUS 
71S ER1 INH SW IS SET. 

000240 

000240 


3 S$$$$$$E$$$$>>> ERROR <<<S$$S$$SSSSSSS 


ERROR 1 ¢/MODULE FAULT DETECTED: 
:SRQ FAILED TO GENERATE 
7AN INTERRUPT 


3; SS$$$S$$SSS*** ERROR “*“S$SSSSSSSSS 
000402 BR 2s 


062706 000004 ; #4,SP :/ADD #4 TO STACK POINTER. 


-RESV- 

013777 001404 172760 PRB, aVECTB s7RestOnE VECTOR FOR 
004700 172776 #4700, aPRB :/ILLEGAL INTRO. 
172734 alBs SCLEAR CSRS 
172750 aIBS2 


DAA IOISISIOIIDIOIIIISIISIISISIOIIOIIOIIOIIOIIOIIOIIIOIITIIIOIIIOIITI OI IIIT IT ITI TE 
Z*TEST 45 *TEST THAT ERROR1 IS GENERATED IF ATN IS ON THE IB BUS 
Meritt itiiiiiiiititiiiiiititititiiitititiiiiiiti iii ttre iii hy 


TST45: SCOPE 


z*WARNING! THIS TEST IS DESIGNED TO BE EXERCISED WITH A 
3*SECOUND MODULE (IBV-11) a. SWITCH *ER1 I SET 
[*ADDRESS OF THE SECOUND MODULE IS IN LOCATION "*I1BS2"" VECTOR 

;*ADDRESS IS IN LOCATION *VECTA2"’. THE SECOW™ piev=tt SHOULD BE ELECTRICALLY SEC 
:*TO INHIBIT THE USE OF TESTING WITH A SEC MODULE, MAKE 
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005077 
005277 


032777 
001001 


000004 
012737 


005077 
012777 
032777 
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*TEST THAT ERROR1 IS GENERATED IF ATN IS ON THE IB BUS SEQ 0051 


z*LOCATION *S$CDW1'" ZERO. 


172742 CLR aIBS2 :CLR CSR OF 2ND MODULE. 
172736 INC aIBS2 sASSERT ATN ON IB BUS 
ZASSERTED ATN ON IBV UNDER TEST- 
3THIS SHOULD CAUSE AN ERROR 1 
7SENCE THE 3 tg HAS ATN SET. 
020000 172710 BIT #B1T13,a1B8S :DID ERROR 1 
BNE TST46 3 


7 $$$$$SS$$E$$S>>> ERROR <<<S$S$S$S$SS$SSS$S 


ERROR 1 ;/MODULE FAULT DETECTED: 
FAILED TO GENERATE ERROR 1 


3; S$$$$$S$$$S$*** ERROR “““SSSSSSSSSS 


SLR ER ER ER 
T*TEST 46 *TEST THAT ERROR 1 IS GENERATED IF IFC IS PUT ON IB BUS BY SECOUND MODUL 
FERRER ERE REE REE EERE ERE EERE REE EERE EERE 
TST46: SCOPE 
001160 MOV #5. STIMES :D0 5 ITERATIONS 
;*WARNING! THIS TEST IS DESIGNED TO BE EXERCISED WITH A 
*SECOUND MODULE (IBV-11) WITH SWITCH 'ER1 INH’' SET. 
;*ADDRESS OF THE SECOUND MODULE IS IN LOCATION ‘'‘IBS2"* VECTOR 
S®ADDRESS IS IN LOCATION ‘VECTA2’'. THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
:*TO INHIBIT THE USE OF TESTING WITH A SECOUND MODULE, MAKE 
:*LOCATION *$CDW1"* ZERO. 


372670 aIBs :CLEAR CSR 

000010 172702 #B1T3,a1BS2 ZASSERT IFC FROM TESTOR 

020000 172654 #B1T13,a1BS DID ERROR 1 GET SET? 
IF SO - NEXT TEST 


TST47 
000010 172664 #B1T3,a1BS2 iF NOT WE'LL TRY AGAIN SENCE MEMORY 
020000 172636 welt, a1BS REFRESH COULD HAVE GO IN THE WAY. 


: :$$$$$$$$$$E>>> ERROR <<<$$$$SSSSSS 
ERROR 1 :/MODULE FAULT DETECTED: 

sERROR 1 

s IFC WAS ~BU AN 

“UNDER TEST DIDN'T PUT IT THERE. 
7 SSS$$SS$$E$*** ERROR ““*S$SSSSSSSSS 


LRA RRR ER ERE ER EERE REE EEE REE REE REE RARER EERE ERE EEE 


TATEST 47 *TEST THAT ERROR 1 IS GENERATED IF REN IS ON IB BUS 





am 
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CVIBBA.P11 


006514 


006544 


006546 


000004 


052777 


032777 
001001 


104001 


000004 


005077 
005077 


012777 
012777 


052777 
012746 
012746 
000002 


052777 
000240 
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*TEST THAT ERROR 1 IS GENERATED IF REN IS ON IB BUS SEQ 0052 


FREER EERE REE EERE REE REE ERE RERER ERE REE ER 


TST47: SCOPE 


;*WARNING! THIS TEST IS DESIGNED TO BE EXERCISED WITH A 

:*SECOUND MODULE (I1BV-11) eae SWITCH ‘ER1_INH 

[*ADDRESS OF THE SECOUND MODUL E IS IN LOCATION "1BS2"' VECTOR 

[*ADDRESS IS IN LOCATION VECTA2"* THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
:*TO0 INHIBIT THE USE A = WITH A SECOUND MODULE, MAKE 

; *LOCATION "$CDwW1"* ZERO 


172624 CLR aIBs CLEAR CSRS. 

172640 CLR @IBS2 

000004 172632 BIS #B1T2,a1BS2 zASSERT REN ON IB BUS FROM 2ND 
;MODULE. 1ST IBV-11 SHOULD 

020000 172604 ne ~ aaay : GENERATE AN ERROR 1;DID IT?? 


:$$$$$$$$E$S$>>> ERROR <<<S$$$$SSSS$S 


ERROR 1 3/MODULE FAULT DETECTED: 
[FAILED TO GENERATE AN ERROR 1. 


7 -S$$$$S$SSSSS*** ERROR “““SSSSSSSSSS 


FD III IIIT ITI RTI IIIA III IARI 


:*TEST 50 *TEST THAT AN ERROR 1 CAN GENERATE AN INTERRUPT 


SII IRR RRR RIE RR ERE RRR EERE ERE EER ER ERE REE ER 


TST50: SCOPE 


;*WARNING! THIS TEST IS DESIGNED TO BE EXERCISED _™ A 

z*SECOUND MODULE (IBV-11) WITH SWITCH ‘ER1_INH"’ 

[*ADDRESS OF THE SECOUND MODULE IS IN LOCATION TBs?" VECTOR 

S*ADDRESS IS IN LOCATION ‘VECTA2’’. THE SECOUND IBV-11 SHOULD BE ELECTRICALLY SEC 
:*TO INHIBIT THE USE OF TESTING WITH A SECOUND MODULE, MAKE 

s*LOCATION *$CDw1'* ZERO. 


172612 CLR aIBS2 CLEAR CSRS. 
172566 CLR aIBs 


000200 172614 MOV #200, aPRA 
006632 172562 MOV #1$,aVECTA ;SET UP VECTOR ADDR. 


000100 172544 BIS *B1T06,a1BS ‘se INTERRUPT ENABLE 


000000 MOV #0,-(SP :/SET CPU PRIORITY ON RETURN 
006614 MOV #O4S, SP) :/SHOW RETURN ADDRESS 
RTI :/CAUSE A og rg! (PUTS NEW STATUS 
64$: :/IN STATUS REG.) 
000004 172544 BIS #B1T2,aIBS2 [GENERATE AN ERROR 1 AS PER LAST TEST. 


an 
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939 
940 


006624 


006754 


000240 


104001 


000402 


062706 


013777 


000004 


012737 
012737 


104004 
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*TEST THAT AN ERROR 1 CAN GENERATE AN INTERRUPT SEQ 0053 
NOP 
 $$$$$$$$$S>>> ERROR <<<$$$SSSSSSS 
ERROR 1 — FAULT DETECTED: 
TERROR 1 FAILED TO GENERATE AN INTR. 
s :$ES$$$SSS$S$*** ERROR *“*SSSSSSSSSS 
BR 2s 
1$: 
000004 2$ ADD #4,SP ;/ADD #4 TO STACK POINTER. 
:/-RESV- 
001402 172512 MOV PRA,a@VECTA : /RESTORE VECTOR FOR 
004700 172530 MOV #4700,@PRA ;/ILLEGAL INTRO: 
172510 CLR aIBS2 = CLEAR CSRS. 
172464 CLR alBs 
EKER EKREKEEEKEREKEEKREKEKEK 
*STEST 51 *TEST THAT DATA CAN BE XFERRED BETWEEN THE MODULE UNDER TEST AND THE KGM 
i* NOTE: KGM =KNOWN GOOD MODULE 
IN THIS TEST WE'LL MAKE THE = A LISTENER 
* AND THE MODULE UNDER TEST A TALKER. 
awe VE ALREADY XFERRED DATA TO AND FROM THE IB-8US 
:*VIA THE MODULE UNDER TEST. THE ONLY UNKNOWN 
:*I1S THE CABLE CONNECTING THE KGM TO THE MODULE UNDER TEST, 
#AS WELL AS THE KGM. 
25 PE, LE TT RE nO eee 
TST51: SCOPE 
006704 001110 MOV #1$,$LPERR ;SET ERROR LOOP. 
001124 MOV #0, $GDDAT sSTART PATTERN. 
001126 CLR SBDDAT 
2436 1$: CLR aIBSs ;CLEAR CSRS. 
172452 CLR alBS2 
1 172424 BIS #31TS'BITO,@IBS ;SET TON AND TCS. 
20 172436 BIS #B1T4,aIBS2 7SET LON ON KGM. 
001124 172412 MOV SGDDAT ,alBD sSEND PATTERN. 
172426 112 MOVB @IBD2,$B8DDA" READ ATA FROM KGM, 
001124 001126 CMPB SGDDAT,$BDDAT ;DATA SENT = DATA RECEIVED? 


BEQ 2s YES, CONT INUE 
: S$$$$SS$$$$SS>>> ERROR <<<S$$S$SSSSSSS 


ERROR 4 7/MODULE FAULT DETECTED: 
;ERROR - BAD DATA PASSED BETWEEN 


Cc 5 
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CVIBBA.P11 151 *TEST THAT DATA CAN BE XFERRED BETWEEN THE MODULE UNDER TEST AND THE KGM SEQ 0054 


;MODULE UNDER TEST AND KGM. 


es ‘vac <3: SS ERROR “““$$$$SSS$SS$ 
000407 BR ST52 ie 


105237 $ INCB $GDDAT CHANGE PATTERN. 
001347 BNE i$ :1F NOT DONE, CONTINUE. 


005077 CLR aIBS CLEAR CSR'S 
005077 CLR aIBS2 


DEAR IOS OI IUIIOIIOIIOIIUIIIIUIIUIDIIUI I nt it tt 
i*TEST 52 *TEMP END OF TESTS 
TRAE IOI IIEI SIERRA III UIIUIUIIUOUIIUIII I nit tt 


TST52: SCOPE 
EOP: 

.SBTTL SYSMAC ROUTINES: 
.SBTTL END OF PASS ROUTINE 


METIS TIT iii iii titi titi i iitii iii iii iii iii iii iii 
3 * INCREMENT THE PASS NUMBER (S$PASS) 

z*TYPE "END PASS AXXXXX"* (WHERE XXXXX IS A DECIMAL NUMBER) 

>*IF THERES A MONITOR GO TO IT 

:*I1F THERE ISN'T JUMP TO RSTART 


SEOP: 


STSTNM ye THE TEST NUMBER 

STIMES ;ZERO THE NUMBER OF ITERATIONS 
SPASS ; INCREMENT THE PASS NUMBER 
#100000, $PASS DON’ T ALLOW A NEG. NUMBER 
-or ; =LOOP? 


SDOAGN 77YES 
srs eo" ALT? :sRESTORE COUNTER 


. SENDMG iTYPE “END PASS # 
$PASS ,~(SP) 23 SAVE SPASS FOR TYPEOUT 
4 TYPE=-DECIMAL ASCII] WITH SIGN 
YPE A NULL CHARACTER 
$GET42: MOV er MONITOR ADDRESS 
Q DOAGN ;BRANCH IF NO MONITOR 
Z:CLEAR THE WORLD 
SENDAD: JS PC, (RO) ::G0 TO MONITOR 
; SAVE ROOM 


73FOR 
77ACT11 


SDOAGN: 
a(PC)+ 7 ;RETURN 
SRTNAD: . RSTART 


9 
1) 
2) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
2) 
2) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 


OQ FR FR FR FR FR FR FR FR FR FR FR FF FFF AOA AAA ROAR 
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CVIBBA.P11 F PASS ROUTINE SEQ 0055 


377 377 000 S$ENULL: .BYTE .0 ;NULL CHARACTER STRING 
015 042412 042116 S$ENDMG: .ASCIZ <igscts >/END Pass’ #/ 
950040 051501 020123 


a 
— 4 4 
wwe ee 


:/DELMA 
: /ROUT INE TO PROVIDE DELAYS IN INCREMENTS OF 25 US 
:/ CALL= JSR RS .DELSO 


° (# OF 25 US TO DELAY) 
;RETURNS HERE 


3/GET # OF 25 US DELAYS 

;/# FOR LOOP TO DO 50 US. 

:/DEC IT 

;/WAITED 25. TIMES? 

:/DONE # A 50. US DELAY DESIRED? 
;/NO ~ NEXT ONE. 

s/YES - EXIT. 


Fe ee el a a ee i ee ee, ee, i oe 
me el ed = Us I ed 


8 


ee ee eee eee ee eee eae ee le eee es es ies es ie a ie SS YS IS ee ee es ee we we ws ae we 


-SBTTL ERROR HANDLER ROUTINE 


32 RRA AEREEREARAEEAEARAERAREEREEEARAEEAEKEERREREEKEEE 


;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
NUMBER AND THE ADDRESS OF THE ERROR CALL 


NMNo— 


T ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


3;TEST FOR CHANGE IN SOFT-SWR 
SERFLG 2 3SET THE ERROR FLAG 
7$ ;DON'T LET THE FLAG GO TO ZERO 
STSTNM,@DISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
> hhteacecnan L ERROR? 


SERTTL OF ERRORS 
(SP) , SERRPC SIGET ADDRESS OF ERROR INSTRUCTION 


33STRIP_ AND SAVE THE ERROR ITEM CODE 
22SKIP TYPEOUT IF SET 

SKIP TYPEOUTS 
7:60 TO USER ERROR ROUTINE 


122737 : HAPTENV,SENV — ; ; RUNNING IN APT MODE 
001007 2$ *°NO,SKIP APT ERROR REPORT 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


kd a ot ot oo ot I 
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CVIBBA.P11 ERROR HANDLER ROUTINE SEQ 0056 


113737 001114 007262 ’ 33SET ITEM NUMBER AS ERROR NUMBER 
004737 011474 J PC, $AT.4 ;;REPORT FATAL ERROR TO APT 


+ sAPT ERROR LOOP 
171646 ;HALT ON ERROR 
:3 SKIP IF CONT INUE 
;HALT ON ERROR! 
: TEST FOR CHANGE IN SOFT-SwWR 
001000 171632 : -* seats + tae SWITCH SET? 


001110 SLPERR, (SP) FUDGE RETURN FOR LOOPING 
001162 2 ata SS CHECK FOR AN ESCAPE ADDRESS 


:7;BR IF NONE 
013716 001162 SESCAPE , (SP) 3: FUDGE RETURN ADDRESS FOR ESCAPE 


000002 RTI  ; RETURN 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


RAISE ISOC IOIOIDOIUOIIIDOIEISIIOIIIOIOIISIIOIDIOIIOIOIOIUISIOIIIIUIDSIIIOII OR Ui 

SS THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ ($ERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
001171 TYPE . SCRLF i2"‘CARRIAGE RETURN’’ & ‘LINE FEED"’ 
RO,-(SP) 72SAVE RO 
0 :sPICKUP THE ITEM INDEX 


iil ITEM NUMBER IS ZERO, JUST 
ZTYPE THE PC OF THE ERROR 
001116 SERRPC ,-(SP) T:SAVE SERRPC FOR TYPEOUT 
;zERROR ADDRESS 
2360 —_— ASCII(ALL DIGITS) 


T 
; ;ADJUST THE INDEX SO THAT IT WILL 
ce WORK FOR THE ERROR TABLE 


Ce ee ee ee et ee a a at a 
ed ad ot 8 wd 
wewewewvywvyvvwuyvvyvvuvuewuwwwvuwvwe 


R 
001114 _— TEMB ,RO 


RO 
#SERRTB RO 77FORM TABLE POINTER 
(RO)+,2$ 3zPICKUP “ERROR MESSAGE*’ POINTER 
3$ .sSKIP TYPEOUT IF NO POINTER 

+2 TYPE THE ‘ERROR MESSAGE"' 
0 "ERROR MESSAGE** POINTER ae HERE 
-SCRLF SP CARRI IAGE RETURN'' NE FEED" 
alias 2 PICKUP "DATA 2 POINTER 


0 

-SCRLF 

(RO) ,RO ‘IPI CKUP "DATA TABLE’ POINTER 

7$ ::GO TYPE THE DATA 

(SP)+,RO i RESTORE RO 

-SCRLF 72'‘CARRIAGE RETURN'' & ‘LINE FEED’ 


Ee tate Tt ae Tat Tate Tati Tain hain atin an tn at et i a 
ee Ne Nee Nee ee ee ee ee ee See 
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IBBA.P11 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0057 


7 ;RETURN 
a(RO)+,=-(SP) sz SAVE a(RO)+ FOR TYPEOUT 
7 TYPE==-OCTAL een DIGITS) 
(RO) 31S THERE ANOTHER NUMBER? 
6$ ::BR IF NO 
,8$ * TYPE TWO(2) SPACES 
BR 7$ LOOP 
8$: ° :zTWO(2) SPACES 
-EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


SEIS IISA IIU I IOI oti i Ri tittnk 
“THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
7*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

LOOP ON TEST 


INHIBIT ITERATIONS 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 


::SCOPE=I0T 


7$: 


104407 C ::TEST FOR CHANGE IN SOFT-SWR 
032777 040000 171442 1S$: #B1T14,aSWR :LOOP ON PRESENT TEST? 
001114 BNE SOVER ‘YES IF SwW14=1 
:AHAMASTART OF CODE FOR THE XOR TESTERSHAMA 
000416 $XTSTR: BR 6$ SIF RUNNING ON THE ‘‘XOR'' TESTER CHANGE 
<TTHIS INSTRUCTION TO A 'NOP’' (NOP=240) 
013746 000004 @VERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
007526 #5$,aWERRVEC =; SET _FOR TIMEOUT 
177060 a#177060 :TIME OUT ON XOR? 
000004 (SP) +, AERRVEC : :RESTORE THE ERROR VECTOR 
BR $SVLAD TO THE NEXT TEST 
5$: (SP) +, (SP)+ “CLEAR THE STACK AFTER A TIME OUT 
000004 (SP)+. @M#ERRVEC ::RESTORE THE ERROR VECTOR 
BR 7$ OOP ON THE PRESENT TEST 
6$:;AA#HAEND OF CODE FOR THE xoR’ TESTERAHAAM 
000400 171374 BIT #1708. asuR LOOP ON SPEC. TEST? 


::BR I 
171366 001102 , QSUR, STSTNM 730N THE RIGHT TEST?  SWR<7:0> 
001103 : SERFLG 3 HAS AN ERROR OCCURRED? 
3$ ‘BR IF NO 
001115 001103 SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 


::BR IF NO 
001000 171336 Y hia ye ERROR? 
001110 001106 : ren 3::SET LOOP ADDRESS TO LAST SCOPE 


000446 BR 
105037 001103 : SERFLG 32:ZERO THE ERROR FLAG 
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) 
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CVIBBA.P11 SCOPE HANDLER ROUTINE SEQ 0058 
001160 STIMES 3;CLEAR THE NUMBER OF — TO MAKE 

1$ 7;ESCAPE TO THE NEXT TEST 
171304 38: ‘lima cir Y ITERATIONS? 


;BR IF YES 
$PASS ie]F FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
$ICNT i INCREMENT ITERATION COUNT 
001104 STIMES ,SICNT : ¢ CHECK THE NUMBER OF ITERATIONS MADE 
SOVER BR IF MORE ITERATION REQUIRED 
001104 1$: #1,$1CNT ; SRE INITIALIZE THE ITERATION COUNTER 
1160 MO SMXCNT ,STIMES SET NUMBER OF ITERATIONS TO DO 
SSVLAD: STSTNM 7: COUNT TEST NUMBERS 
MO STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
3sSAVE SCOPE LOOP ADDRESS 
3;SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
MO . SERMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: $TSTNM, aD ISPLAY : :DISPLAY TEST NUMBER 
at SLPADR, (SP) :IDKES ~ hata ADDRESS 
$MXCNT: 2000. . NUMBER OF ITERATIONS 
-SBTTL TTY INPUT ROUTINE 


5S RARER KERR 


-ENABL LSB 


DISA IIISISIOIISIOIIDIOISIOISISIIIOISIIOIOIIIOIOITIOIOIIOIOI IOI TOOT TOI I TOIT TOT TOOT TOT TOT TIE 
T*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CAL!. 
:*WHEN OPERATING IN TTY FLAG MODE. 
022737 000176 001140 $CKSWR: a + * antaiaae 2i1S ae . SELECTED? 


Ce ae te ee ta a a a a a a a a 
el ed ad ed od od 
CGOwwwvwvuwvvuuvuvuvuuvuvvuvvw 


8 


(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


171162 
171156 
177600 
000007 
001134 


010473 
010500 
000176 


010511 
171100 


171074 
177600 


asTks 

15$ 
a$TKB,-(SP) 
#°(177, (SP) 
#7, (SP) + 
15$ 
$AUTOB,#1 
15$ 

.SCNTLG 

* $MSWR 
SWREG, - (SP) 


a$TKB,-(SP) 
#°C177, (SP) 


3 CHAR THERE ? 
; cat DON'T WAIT AROUND 
77SAVE THE CHAR 
2s STRIP-OFF Le ASCII 

; ONTROL G? 


USER 
ARE WE RUNNING IN AUTO-MODE? 
‘BRANCH IF YES 


3zECHO THE CONTROL-G (“*G) 
3zTYPE CURRENT CONTENTS 
he SWREG FOR TYPEOUT 
‘= TYPE--OCTAL ASCII(ALL DIGITS) 
OR NEW SWR 


331F NOT TRY AGAIN 


33:PICK UP CHAR 
7:MAKE IT 7-BIT ASCII 
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CVIBBA.P11 Y INPUT ROUTINE SEQ 0059 
(1) 
it 
(1) 010056 021627 000025 9$: CMP (SP) #25 21S IT A CONTROL-U? 
(1) 010062 001005 BNE 10$ : BRANCH IF NOT 
(1) 010064 104401 010466 TYPE »$SCNTLU ::YES, ECHO CONTROL=U (*U) 
(1) 010070 062706 000006 208: ADD #6,SP +:IGNORE PREVIOUS INPUT 
C 010074 000757 BR 19$ *:LET'S TRY IT AGAIN 
(1) 
(1) 010076 021627 000015 10$: CMP (SP) ,#15 ir1S IT A <CR>? 
(1) 010102 001022 BNE 16$ 7 BRANCH IF NO 
(1) 010104 005766 000004 TST 4(SP) ::YES, IS IT THE FIRST CHAR? 
(1) 010110 001403 BEQ 11$ 33 CH IF YES 
(1) 010112 016677 000002 171020 MOV 2(SP) ,@SWR Z7SAVE NEW SWR 
(1) 010120 062706 000006 11$: ADD #6, 7:CLEAR UP STACK 
(1) 010124 104401 001171 14$: TYPE »$CRLF :ZECHO <CR> AND <L 
(1) 010130 123727 001135 000001 CMPB SINTAG, #1 7 RE-ENABLE TTY md INTERRUPTS? 
(1) 010136 001003 BNE 15 33 CH IF NOT 
(1) 010140 012777 000100 170776 MOV #100, a$TKS > RE-ENABLE TTY KBD INTERRUPTS 
(1) 010146 000002 15$: RTI 7 ;RETURN 
(1) 010150 004737 011406 16$: JSR PC, STYPEC :zECHO CHAR 
(1) 010154 021627 000060 CMP (SP) ,460 z:CHAR < 0? 
(1) 010160 002420 BLT 18$ : BRANCH IF YES 
(1) 010162 021627 000067 CMP (SP) ,467 i:CHAR > 7? 
(1) 010166 003015 BGT : CH IF YES 
(1) 010170 042726 000060 BIC #60, (SP)+ +: STRIP-OFF ASCII 
(1) 010174 005766 000002 TST 2(SP) :31S THIS THE FIRST CHAR 
(1) 010200 001403 BEQ 17$ ZBRANCH IF YES 
(1) 010202 006316 ASL (SP) :3NO, SHIFT PRESENT 
(1) 010204 006316 ASL (SP) zz CHAR OVER TO MAKE 
(1) 010206 006316 ASL (SP) ROOM FOR NEW ONE. 
(1) 010210 005266 000002 178: INC 2(SP) *TKEEP COUNT OF CHAR 
<1) 010214 056616 177776 BIS -2(SP), (SP) ISET IN NEW CHAR 
(1) 010220 000707 BR 7$ 7:GET THE NEXT ONE 
(1) 010222 104401 001170 18$: TYPE »SQUES * TYPE ?<CR><LF> 
(1) 010226 000720 BR 20$ 7:SIMULATE CONTROL-U 
(1) .DSABL LSB 
3 
(2) SL RRR EERE EEE EERE EERE EEE KEE EERE ERE ERER 
2 semis ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** My 
(1) i RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
(1) i* RETURN HERE 7: CHARACTER IS ON THE STACK 
4) :* :iWITH PARITY BIT STRIPPED OFF 
(1) 
(1) 010230 011646 $RDCHR: MOV (SP) ,-(SP) PUSH DOWN THE PC 
(1) 010232 016666 000004 000002 MOV 4(SP) ,2(SP) 1 SAVE THE PS 
(1) 010240 105777 170700 1$: TSTB a$TKS WAIT FOR 
(1) 010244 100375 BPL 1$ A CHARACTER 
(1) 010246 117766 170674 000004 MOVB a$TKB,4 (SP) +:READ THE TTY 
(1) 010254 042766 177600 000004 BIC er Ne 4(SP) ::GET RID OF JUNK IF ANY 
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CVIBBA.P11 INPUT ROUTI SEQ 0060 
(1) 010262 026627 000004 000023 CMP 4(SP) ,#23 e215 IT A_ CONTROLS? 
(1) 010270 001013 BNE 4NCH IF NO 
(1) 010272 105777 170646 23: TSTB a$TKS ::WAIT FOR A CHARACTER 
(1) 010276 100375 BPL 2$ ;=LOOP UNTIL ITS THERE 
(1) 010300 117746 170642 MOVB @$TKB,-(SP) ;:GET CHARACTER 
(1) 010304 042716 177600 BIC #°C177, (SP) 73sMAKE IT 7-BIT ASCII 
(1) 010310 022627 000021 CMP (SP)+,#21 ::1S IT_A_CONTROL-Q? 
(1) 010314 001366 BNE 2$ 731F NOT DISCARD IT 
(1) 010316 000750 BR 1$ ciie i RE SUME 
(1) 010320 026627 000004 000140 3%: CMP 4(SP) ,#140 TIS IT UPPER CASE? 
(1) 010326 002407 BLT BRANCH IF YES 
(1) 010330 026627 000004 000175 CMP 4(SP) ,#175 HHS IT A SPECIAL CHAR? 
(1) 010336 003003 BGT 4$ ae CH_IF YES 
(1) 010340 042766 000040 000004 BIC #40,4(SP) :sMAKE IT UPPER CASE 
(1) 010346 0000C2 4$: RTI 3:GO BACK TO USER 
(2) FLARE REE EEEEEEEEEKKEREREEEEKKEEREEEEREREREEEREREERER 
the ames ROUTINE WILL INPUT A STRING FROM THE TTY 
> *CALL: 
(1) :* RDLIN 3 INPUT A STRING FROM THE TTY 
qi) s* RETURN HERE ate OF FIRST CHARACTER WILL BE ON THE STACK 
“aS s¢ TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 010350 010346 SRDLIN: MOV R3,-(SP) 32SAVE R3 
(1) 010352 012703 010456 18: MOV ASTTYIN,R3 32GET ADDRESS 
(1) 010356 022703 010466 2s: CMP MSTTYIN+8.,R3 =; ;BUFFER FULL? 
(1) 010362 101405 BLOS 4$ :2BR IF YES 
(1) 010364 104410 RDCHR 3:GO READ ONE CHARACTER FROM THE TTY 
(1) 010366 112613 MOVB (SP) +, (R3) ;3GET CHARACTER 
(1) 010370 122713 000177 10$: CMPB #177, (R3) 3:1S IT A RUBOUT 
(1) 010374 001003 BNE 3$ 3¢SKIP IF NOT 
(1) 010376 104401 001170 4$: TYPE .SQUES ss TYPE A °?° 
(1) 010402 000763 BR 1$ TICLEAR THE BUFFER AND LOOP 
(1) 010404 111337 010454 3$: MOVB (R3) ,9$ ::ECHO THE CHARACTER 
<1) 010410 104401 010454 TYPE 9 
(1) 010414 122723 000015 CMPB #15, (R3)+ +s CHECK FOR RETURN 
(1) 010420 001356 BNE 2s LOOP IF NOT RETURN 
(1) 010422 105063 177777 CLRB -1(R3) iI CLEAR RETURN (THE 15) 
(1) 010426 104401 001172 TYPE -SLF TYPE A LINE FEED 
(1) 010432 012603 MOV (SP) +,R3 :;RESTORE R3 
(1) 010434 011646 MOV (SP) ,~(SP) : ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 010436 016666 000004 000002 MOV 4(SP) ,2(SP) 3a FIRST ASCII CHARACTER ON IT 
(1) 010444 012766 010456 000004 MOV #STTYIN,4(SP) 
(1) 010452 000002 RTI ; sRETURN 
(1) 010454 000 9$: -BYTE 0 3 STORAGE FOR ASCII CHAR. TO TYPE 
(1) 010455 000 -BYTE OQ :; TERMINATOR 
(1) 010456 000010 STTYIN: .BLKB_ 8. sRESERVE 8 BYTES FOR TTY INPUT 
(1) 010466 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> S CONT ROL ‘U"' 
(1) 010473 136 006507 000012 S$CNTLG: .ASCIZ /*G/<15><12> 3;CONTROL ''G’’ 
(1) 010500 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
(1) 010506 020075 000 
(1) 010511 040 047040 053505 S$MNEW: .ASCIZ / NEW = 
(1) 010516 036440 000040 


3 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


~~ 
—_ 
~~ 
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CVIBBA.P11 BINARY TO OCTAL (ASCII) AND TYPE 


DDSI EIEIO ISIS SIISICIIOIISIOITIDIOIOIIDIOIITIOIOI IIIT TTT TTT TT 

:*THIS ROUTINE IS USED TO a A 16-BIT BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT 

i s$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, = (SP) ; ;NUMBER TO BE TYPED 
:;CALL FOR TYPEOUT 
N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M 3; 7M=1 OR O 
321=TYPE LEADING ZEROS 
3, 0=SUPPRESS LEADING ZEROS 


3* 
:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


:*CALL: 
; MOV NUM ,-(SP) ; ;NUMBER TO BE TYPED 
:* TYPON 3; ;CALL FOR TYPEOUT 


{4ST YPOC——-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM, -(SP) ; ;NUMBER TO BE TYPED 
TYPOC 3sCALL FOR TYPEOUT 


010522 000000 : a(SP) ,-(SP) 3zPICKUP THE MODE 
000001 010745 MO 1(SP) , SOF ILL ;zLOAD ZERO FILL SWITCH 
> sNUMBER OF DIGITS TO TYPE 
; sADJUST RETURN ADDRESS 


BR $TYPON 

000001 010745 : 3zSET THE ZERO ey on 
010747 MO #6, $0M0 3eSET FOR SIX(6) ITS 

000005 010744 : 3 st ITERATION. COUNT 


; R5 
010747 : SIGET THE NUMBER OF DIGITS TO TYPE 


000006 : SUBTRACT IT FOR MAX. ALLOWED 
010746 ye ccoave IT FOR USE 
010745 2GET THE ZERO oa SWITCH 
000012 PICKUP THE INPUT NUMBER 
SI CLEAR THE OUTPUT WORD 
7zROTATE MSB INTO ‘'C’’ 
3:GO0 DO MSB 
7 7FORM THIS DIGIT 


: Aa LSB OF THIS DIGIT 
010746 TYPE THIS DIGIT? 


7$ 7:BR_IF NO 

177770 #177770,R3 33GET ar OF JUNK 
4$ :zTEST FOR 
R4 He a THIS 0? 
5$ ::BR IF YES 
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BINAR 


CVIBBA.P11 


1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


TO OCTAL (ASCII) AND TYPE 
4$: 
5$: 


010744 7$: 


000002 000004 


010746 


::DON'T SUPPRESS ANYMORE 0'S 
sMAKE THIS DIGIT ASCII 

;IMAKE ASCII IF NOT ALREADY 

33SAVE FOR TYPING 

3:GO TYPE THIS DIGIT 

;;COUNT BY 1 

33BR iY MORE TO DO 


$e IF DONE 

:, INSURE LAST DIGIT ISN'T A BLANK 
3:GO DO THE LAST DIGIT 

7 RESTORE R5 

RESTORE R4 

RESTORE R3 

::SET THE STACK FOR RETURNING 


3; RETURN 

sz STORAGE FOR ASCII DIGIT 

sz TERMINATOR FOR TYPE ROUTINE 
:zO0CTAL DIGIT COUNTER 

3zZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 
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CVIBBA.P11 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0063 
i; .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) RRR RRR ERE REE EEE 
(1) TRTHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
(1) :*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) 7 *NUMBER IS POSITIVE OR y gis A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) [*BEFORE THE FIRST DIGIT THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) :*REPLACED WITH SPACES. 
(1) :*CALL: 
(1) "td MOV NUM , = (SP) 3¢PUT THE BINARY NUMBER ON THE STACK 
Hh :* TYPDS 3:GO0 TO THE ROUTINE 
(2) 010750 S$TYPDS: 
(3) 010750 010046 MOV RO,-(SP) 3PUSH RO ON STACK 
(3) 010752 010146 MCV R1,-(SP) 33PUSH R1 ON STACK 
(3) 010754 010246 MOV R2,-(SP) 3=PUSH R2 ON STACK 
(3) 010756 010346 MOV R3,-(SP) 3zPUSH R3 ON STACK 
(3) 010760 010546 MOV R5,~(SP) 33PUSH_R5 ON STACK 
(1) 010762 012746 020200 MOV #20200,-(SP) 33SET BLANK SWITCH AND SIGN 
(1) 010766 016605 000020 MOV 20(SP) RS 33;GET THE INPUT NUMBER 
(1) 010772 100004 BPL 1$ :;BR IF_INPUT IS POS. 
(1) 010774 005405 NEG R5 73MAKE THE BINARY NUMBER POS. 
(1) 010776 112766 000055 000001 MOVB #*=,1(SP) 3 sMAKE THE ASCII NUMBER NEG 
(1) 011004 005000 1$: CLR RO 2 ZERO THE CONSTANTS INDEX 
(1) 011006 012703 011164 MOV #$DBLK ,R3 SETUP THE OUTPUT POINTER 
(1) 011012 112723 000040 MOVB #* ,(R3)+ Z:SET THE FIRST CHARACTER TO A BLANK 
(1) 011016 005002 23: CLR R2 3;CLEAR THE BCD NUMBER 
(1) 011020 016001 011154 MOV $DTBL (RO) ,R1 33GET THE CONSTANT 
(1) 011024 160105 3$: SUB R1,R5 73FORM THIS BCD DIGIT 
(1) 011026 002402 BLT 4$ ;3BR_ IF DONE 
(1) 1030 005202 INC R2 3; INCREASE THE BCD DIGIT BY 1 
(1) 011032 000774 BR 3$ 
(1) 011034 060105 4$: ADD R1,R5 ;;ADD BACK THE CONSTANT 
<1) 011036 005702 TST R2 22 CHECK IF BCD DIGIT=0 
(1) 011040 001002 BNE 5$ THROUGH IF 0 
(1) 011042 105716 TSTB (SP) ZISTILL DOING LEADING 0'S? 
(1) 011044 100407 BMI 7$ ::BR IF YES 
(1) 011046 106316 5$: ASLB (SP) 3 MSD? 
(1) 011050 103003 BCC 6$ :2BR IF NO 
(1) 011052 116663 000001 177777 MOVB 1(SP) ,-1(R3) ee the THE SIGN 
(1) 011060 052702 000060 6$: BIS #'0,Re MAKE THE BCD DIGIT ASCII 
(1) 011064 052702 000040 7$: BIS #' ,R2 37zMAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 011070 110223 MOVB R2, (R3)+ 33PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 011072 005720 TST (RO) + 3;JUST INCREMENTING 
(1) 011074 020027 000010 CMP RO,#10 +s CHECK THE TABLE INDEX 
(1) 011100 002746 BLT 2$ :GO DO THE NEXT DIGIT 
(1) 011102 BGT 7:G0_TO EXIT 
(1) 011104 010502 MOV R5 ,R2 3:GET THE LSD 
(1) 011106 000744 BR 3:GO CHANGE TO ASCII 
(1) 011110 105726 8$: TSTB (SP)+ 7WAS THE LSD THE FIRST NON-ZERO? 
(1) 011112 100003 BPL 9$ ::BR_IF NO 
(1) 011114 116663 177777 177776 MOVB -1(SP),-2(R3) 3: YES=-SET THE SIGN FOR TYPING 
(1) 011122 105013 9$: CLRB (R3) 2 3SET THE TERMINATOR 
(3) 011124 012605 MOV (SP)+,R5 73POP STACK INTO R5 
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(SP)+,R3 ;3POP STACK INTO R3 
(SP)+.n2 
(SP)+,R1 
(SP)+,RO 
011164 $DBLK = 
000002 000004 MO 3(SP) ,4(SP) ::ADJUST THE STACK 


(SP) +, (SP) 
3 ;RETURN TO USER 


lelelelelelelelelelelelele) 
paw pe Pom ee ee ee 
ol ad ca cae a a a ca ee ce ee a 
ed a a a cl al a a a ee ee cc ed 


$DBLK: .BLKW 4 
“SBITL TYPE ROUTINE 


038 


ITT iti itiiiiiitiiiititiiiiiiititii iii iti iii iii iris 
‘ RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
[*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


= *CALL: 

:*1) USING A TRAP INSTRUCTION 

< TYPE §_,MESADR s:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 

:* TYPE 

3* 

* 


105737 STYPE: STPFLG 71S THERE A TERMINAL? 
10000 BP. 1$ :;BR IF 


YES 
a IF NO TERMINAL 


Son 
VSR 


BR 3$ sé 
1$: RO,-(SP) . SAVE RO 

000002 a@2(SP) ,RO 33GET ADDRESS OF ASCIZ STRING 
000001 001214 MHAPTENV , SENV RUNNING IN APT MODE 

BNE 62$ 72NO,GO CHECK 7 aaa! A eee 
000100 001215 #APTSPOOL ,SENVM ;;SPOOL MESSAGE T 

62$ 23NO, GO CHECK FOR O CONSOLE 

011244 RO,61$ ;SETUP MESSAGE ADDRESS FOR APT 
011464 PC,SATY3 33 SAGE TO APT 


61$: WORD 
000040 : #APTCSUP ,SENVM 

BN $ 37YES,SKIP TYPE OUT 
(RO) +,-(SP) 3sPUSH CHARACTER TO BE TYPED ONTO STACK 
4$ 33;BR IF IT ISN'T THE TERMINAT 
(SP)+ 321F TERMINATOR POP IT OFF THE STACK 
(SP)+,RO 3zRESTORE RO 
#2, (SP) Him oy RETURN PC 
os cre 3 BRANCH IF <HT> 


122716 MPB ACRLF , (SP) 7 BRANCH IF NOT <CRLF> 


MMPNononononrnwy 
YRNROR 
NMNENSO 


leleleleleleleleleleleolej=) 
> 
So 


ee ee ce ee ed ed ee ed ed ed 
ee ee ee ee ee ee ee ed eed ed ed 


emo eee ee ee Oe Ae 1 1S 1D 1 14 14 14 144 £4 £44 144 44 14444144 144144 
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) 
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) 
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) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


1 
q 
q 
.¢ 
1 
6 
qd 
q 
@ 
q 
| 
6 
1 
(1 
(1 
qd 
qd 
‘¢ 
1 
1 
.¢ 
q 
1 
(1 
(1 
qd 
(1 
qd 
(1 
qd 
qd 
1 
¢ 
1 
.¢ 
(1 
(1 
(1 
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5$ 
(SP) + 33POP <CR><LF> EQUIV 
::TYPE A CR AND LF 


011452 a —— + CLEAR CHARACTER COUNT 


011406 : PC ,S$TYPEC 
001156 : $FILLC,(SP)+ 
$ StIP NO GO GET NEXT 


001350 2 CHAR. 
013746 001154 $SNULL ,- (SP) 2 2GET ne 4g —* ng NEEDED 


7 AND NULL C 
105366 000001 : 1(SP) ; :DOES A NULL NEED TO BE TYPED? 
002770 6$ 3;BR IF NO--GO POP THE NULL OFF OF STACK 
004737 011406 PC,$TYPEC 7:G0 TYPE A NULL 
105337 011452 SCHARCNT 3:DO0 NOT COUNT AS A COUNT 
000770 BR 7$ 


;HORIZONTAL TAB PROCESSOR 


112716 000040 8$: MOVB #* ,(SP) 3sREPLACE TAB WITH SPACE 
004737 9$: JSR PC, $TYPEC 7sTYPE A SPACE 
011452 #7, $CHARCNT 3 BRANCH IF NOT AT 
BNE 9$ :3TAB STOP 
(SP) + 7:POP SPACE OFF STACK 
BR 2$ 33GET NEXT CHARACTER 
167536 STYPEC: ie a$TPS ;2WAIT UNTIL PRINTER IS READY 


STYPEC 
000002 167530 2(SP) ,aSTPB 3zLOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 Tener? 21S epee yo A CARRIAGE RETURN? 


sBRANCH IF 
011452 ; 2: YES-—CLEAR CHARACTER COUNT 
000012 1$: ete POCSP) 21S ae A LINE FEED? 
INCB (POs 
000000 SCHARCNT:.WORD 0 
011454 $STYPEX: RTS PC 


-SBTTL APT COMMUNICATIONS ROUTINE 


ZAC III I ICICI IOI A AAA AAAI IIIS ISIS SISASASSSSSAS IIIS IN 
011456 112737 000001 011722 : VB #1,$FFLG 32TO REPORT FATAL ERROR 
0114 112737 011720 : #1. SMFLG : 3:T0 TYPE A MESSAGE 


6 6A 6 th th th th tA (A AACA AA AARAAPAAAPAPAMRAAHMMOMMA AM 


000403 BR SATYC 
112737 000001 011722 : #1,$FFLG ::TO ONLY REPORT FATAL ERROR 
RO,-(SP) ::PUSH RO ON STACK 
R1.-(SP) ‘PUSH R1 ON STACK 
011720 SMFLG 3: SHOULD TYPE A MESSAGE? 
000001 001214 WAPTENV, SENV : {OPERATING UNDER APT? 


BNE $ IF NO 
000100 001215 #APTSPOOL , SENVM ; : SHOULD SPOOL MESSAGES? 
3$ ;IF NOT: BR 


«mm 48 14 44 44 44 44 144 144 644 44 4644 £4 £4 £4 £4 464 £4 64 64 64 144 
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Ne Ne eee ee ee ee ee eee ae ee ee ee ele ae le le Se ee es eS re eee ee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 


2 


— = fy — 


000004 
000002 
001174 
001210 


001210 
001212 
000004 


000002 
177776 
011174 


011722 
001214 


011720 


011722 


lelelelelejlejelojo) 


6 
017746 167160 


19-SEP-78 
T COMMUNICATIONS ROUTINE 


000004 


001174 


011632 
000004 


001176 
000004 


11:35 PAGE 2-3 


1$: 


2$: 


SMFLG: 
S$LFLG: .BYTE 
SFFLG: g A 


APTSIZE= 300°. 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


a4 (SP) ,RO 
#2,4(SP) 
elec 
RO, $MSGAD 
(RO) + 

2s 

$MSGAD ,RO 
RO 


RO, $MSGLGT 
#4 , SMSGTYPE 


a4 (SP) ,4$ 
#2,4(SP) 
177776, -(SP) 
PC $TYPE 

0 

SFFLG 

12$ 

SENV 

12$ 
SMSGTYPE 


11$ 
04 (SP) , SFATAL 
2.4(SP) 


(SP)+,RO 
PC 

0 

0 

0 


33GET MESSAGE ADDR. 
TURN ADDR. 
+3 SEE IF DONE W/ LAST XMISS1ON? 
NOT: WAIT 


; PUT ADDR IN MAILBOX 
33FIND END OF MESSAGE 


3;SUB START OF MESSAGE 

2 2GET MESSAGE LNGTH IN WORDS 
3;¢PUT LENGTH IN MAILBOX 

73TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

PUSH 1996 ON STACK 

t:CALL TYPE MACRO 


+ ¢ SHOULD REPORT FATAL ERROR? 
:21F NOT: BR 


: ay ge op UNDER APT? 
:IF NOT: BR 
:iF INISHED nytt MESSAGE ? 


F 
$sGtT ERROR # 
RETURN ADDR. 


; sBUMP 
+e TELL APT TO TAKE ERROR 
;CLEAR FATAL FLAG 
7:CLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
33POP STACK INTO R1 
33POP STACK INTO RO 


; sRETURN 

2 sMESSG. FLAG 
G FLAG 

SZFATAL FLAG 


SBTTL POWER DOWN AND UP ROUTINES 


SOIREE ISIE ISISISISIIOIOISISIOIIDIIIIIOIOIDIOIIOIOIUIOICIIOIIISIOIOIIOIOIIUDI IOI TOIT TOIT IEE 
POWER = ROUT INE 

MSILLUP ,Q#PWRVEC ;;SET FOR FAST UP 
< apd / AAPURVE EC+2 :¢PRIO: 7 


012064 000024 $PWRDN: 
090340 000026 


aSwWR,-(SP) 


RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
RS ON STACK 
@SWR ON STACK 
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010637 012070 MOV SP ,SSAVR6 ;;SAVE SP 
012737 011776 000024 MOV #SPWRUP ,a#PWRVEC ;;SET UP VECTOR 
000000 HALT 

011774 000776 BR 2 3 HANG UP 


EAA ARERR RRR AEEREEEEE ERR ERR RREREERERE EERE ER 
;POWER UP ROUTINE 
011776 012737 : MSILLUP ,@#PWRVEC ;;SET FOR FAST DOWN 
12004 SSAVR6, SP :zGET SP 
SSAVR6 ;zWAIT LOOP FOR THE TTY 
012070 1$: SSAVR6 ;zWAIT FOR THE INC 
BN 1$ TF; WORD 


167112 (SP) +, aSwWR 


- 
— 
~ 


BLL LL PL LL LP 
wee es wwe wuewwouvwe 


:=POP_STACK 0 RO 
011724 #SPWRDN , AAPWRVE C i3SET UP THE POWER DOWN VECTOR 
000340 #340, a#PWRVEC+2 ;:PRIO:7 
REPORT THE POWER FAILURE 


SPWRMG: . SPOWER POWER FAIL MESSAGE POINTER 


SILLUP: ;THE POWER UP SEQUENCE WAS STARTED 
BR -72 is BEFORS THE POWER DOWN WAS COMPLETE 

SSAVR6: 0 ;PUT THE SP HERE 

SPOWER: .ASCIZ <15><12>' POWER’ 


- EVEN 


-* 
*THIS ROUTINE WILL PROTECT THE PROGRAM 
;*FROM INTERRUPTS. 


** 

*THE TRAP CATCHER IS SET UP FOR 

ie .WORD .+ 

3s “WORD JSR PC,RO 

** 

:*ILLEGAL INTERRUPTS OR INTERRUPTS TO THE WRONG VECTOR 

>*GOTO THE VECTOR AND PICK UP THE ‘'.+2°' AS AN ADDRESS 

;*AND "4700" AS NEW STATUS. 

iSTHE 42 AS A PC WILL CAUSE EXECUTION OF THE "JSR PC.RO'’ (AN ILLEGAL INSTR). 
*AND TRAP TO LOCATION '4''. IN LOCATION 10 WE HAVE A 

*POINTER HERE. IF THIS CONDITION CAUSES A TRAP TO LOC. 4 

i*WE WILL REPORT IT IN THE SAME MANNER THAT WE WOULD 

:*REPORT ANY OTHER ERROR. 


;*IF A BUSS mm TRAP DID OCCUR AND CAUSE A TRAP TO 4, 
:*WE WILL HALT 


012102 011637 012146 TRD: MOV (6), TRTO GET WHERE WE CAME TO. 
012106 162737 000004 012146 SUB #4,TRTO FORM REAL ADDR. 


012100 


te at td ot os 


( 
( 
( 
( 
( 
( 
( 
( 


WVwwewvuwwvw 


Fe 
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012114 023727 012146 001000 CMP TRTO,41000 ;DID TRAP COME FROM LESS THAN ADDR. 1000? 
012122 003402 BLE 2s 


012124 000000 1$: HALT NO! MUST BE A BUSS ILLEGAL ADDR. TIME OUT. 
; ADDRESS CONTAINED IN TRTO. 


012126 000776 BR 1$ DON'T ALLOW A CONTINUE. 
012130 2$: 


012130 016637 000004 012150 4(6),TRFRO ;GET TRAPPED FROM ADDR. 
012136 062706 000004 ADD #4, SP 3;/ADD #4 TO STACK POINTER. 


: :$$$S$$$$$S$>>> ERROR <<<S$S$S$SSSSSSS 


012142 ERROR 7 ;/MODULE FAULT DETECTED: 
ERROR! ILLEGAL INTERRUPT 
;OR INTERRUPT TO Bye 
;VECTOR - IF TEST NUMBER 
71S LESS THAN 10, ITS LIKELY 
; (BUT NOT EXCLUSIVELY) TO BE A 
:DEVICE OTHER THAN THE IBV-11 


e BLAME . 

IF THE INTERRUPT OCCURRED 
;DURING AN INTERRUPT TEST, I'D 
shih A PROBLEM WITH THE 
z1F THE ADDRESS THE INTERRUPT 
[VECTOR TO IS WITHIN THE RANGE 
3 OF a bh ASSIGNED TO THE IBV-11, 
THEN I°D SUSPECT THE IBV-11 
INTERRUPTED ILLEGALLY 

IF THE ADDRESS THE INTERRUPT 
SVECTORED TO IS OUTSIDE OF THE 
[RANGE ASSIGNED nae IBV-11, 


VECTOR ON 
THE BUSS DURING THE INTERRUPT 
PROCESS. 
af THIS ERROR - DON'T 

E ‘LOOP ON ERROR‘ OPTION. 

‘ALSO EXPECT. THE INTERRUPT TEST TO 
;REPORT THAT THE IBV-11 DIDN'T 
; INTERRUPT. 
[FOLLOW RECOMMENDED PROCEDURE 
IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
:FOR LOOPING ON ERROR 


; ;S$S$$$$$SS$*** ERROR “**SSSSSSSSSS 
Hb 012144 000002 RT] 
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CVIBBA.P11 


012146 
012150 


012152 


012172 


012174 
012176 
012204 


012220 
012222 
012224 


012254 
012260 


000000 
000000 


011646 
016666 
000002 


012174 


010750 
010016 
007746 


010230 
010350 
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000004 


044475 
047125 
020116 
000122 


044415 


000002 


051502 
052103 
051105 


042102 


11: ia —— 2-6 


TRTO: -WORD 0 ;ADDR THAT WE INTERRUPTED TO 
TRFRO: .WORD 0 ;ADDR THAT WE INTERRUPTED FROM. 


-SBTTL TRAP DECODER 


;ARARRERERERER RARER REAR EERE REE CREE EERE REE ERR REE 

SS THIS ROUTINE WILL PICKUF THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THRCUGH THE [RAP TABLE FOR THE STARTING ADDRESS 
7*OMF THE DESIRED ROUTINE. THEN US!NG THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 3;SAVE RO 
MOV + GET TRAP ADDRESS 
;BACKUP BY 2 
:3GET RIGHT BYTE OF TRAP 
R sPOSITION FOR INDEXING 
$TRPAD(RO).RO :: INDEX TO TABLE 
RO 3360 TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI** MACRO 

$STRAP2: MOV (SP) ,-(SP) 7zMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) ;sMOVE THE PSW DOWN 
RTI 7 sRESTORE THE PSW 

-SBTTL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE '‘TRAP’’ INSTRUCTION. 


: ROUT INE 


$STRPAD: .WORD $TRAP2 
$ 3s CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
3; CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3; CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
3; CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


: = CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
3; CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T~SWR 
3; CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
$RDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
-SBTTL MESSAGES AND TABLES 


-ASC1Z2<7><12><15>#IBS FUNCTION ERROR# 


EM2: .ASCIZ<7><12><15>#I1BD FUNCTION ERROR# 
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CVIBBA.P11 
012266 
012274 
012302 
2306 


01 
012314 
012322 


012424 
012431 
012436 
012444 
012452 


012453 


012550 
012556 
0125 


012652 


040504 
051122 

007 
051105 
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051117 


044600 
052522 
051122 


0521 
0511 


051104 


052123 


027122 
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.ASCIZ7<7><12><15>#IBS DATA ERRORA 


-ASCIZ2<7><12><15>#IBD DATA ERRORA 


-ASC1Z2<7><200>1BS/IBD ADDRESS ERROR 


-ASCIZ <7><200>#I1BWC/IBCA DATA ERROR# 


.ASCIZ <7><200>#INTERRUPT ERRORA 


-ASCIZ<CRLF >ATEST ERRPC IB ADR IBS 


-ASCIZ<CRLF >ATEST ERRPC GOOD BAD# 


-ASCIZ <CRLF>ATEST ERRPC IB ADDR& 


eASCIZ <CRLF>A#TEST ERRPC 10 FROM ADDR.# 





SEQ 0070 
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012654 -EVEN 
012654 001200 001116 001346 : . STESTN, SERRPC, IBS 
012662 000000 tf « 0 
012664 000000 000000 ft « 0,0 


012670 001200 001116 001124 : ‘ STESTN, SERRPC ,$GDDAT , SBDDAT .0 
012676 001126 000000 


012702 001200 001116 001346 : ° STESTN, SERRPC,IBS,0 
012710 000000 


012712 001200 001116 012146 : . STESTN, SERRPC, TRIO, TRFRO,O 
012720 012150 000000 


012724 000000 000000 : ° 0.0 
000001 


SELF 


1 
1 
; 
1 
1 
1 
1 
1 
1 


’ 
' 
1 
1 
1 
1 
1 
1 
1 
1 
e 
c 


—-9O00O NO WF Who 





CVIBB-A, MACY11 27(654) 19-SEP-78 11:35 PAGE 2-9 


CVIBBA.P11 
= 171420 


4 = 000000 
ATESTN= 000000 
AUNIT = 000000 
AUSWR = 000000 
AVECT1= 000420 
AVECT2= 000000 
BITO = 000001 


CROSS REFERENCE TABLE 


57 


179 


180 


186 


563 


196 


666 


188 


197 


691 


198 


746 


199 


969 


201 


202 


SEQ 0072 


203 
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CVIBBA.P11 CROSS REFERENCE TABLE SEQ 0073 


424 
445 


11 
11074 
102 11134 
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CVIBBA.P11 CROSS REFERENCE TABLE SEQ 0074 


ERRVEC 213* 
U 


211* 
10804 


Oo 


RESVEC= 000010 4 
RSTART 002266 993 
RO =%000000 993* 996* 1001* 1002* 1003* 1004* 1080* 
= abate 1003* 1004* 

& 
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& SEQ 0075 


CVIBBA.P11 CROSS REFERENCE TABL 


305* 317* 324* 330 493* 747* 
808* 839* 849* 861* 874* 936* 
1001* 1002* 1003* 1004* 1040* 1080* 


10774 81117 





C 


viapAT MACY11 27(654) 


BBA.P11 CROSS REFERENCE TABL 


19-SEP-78 


1 


a“ PAGE 2-13 


614 616 


999 1001 1002 


795* 810* 
876* 
756* 760* 


1004 


933* 


770* 


SEQ 0076 





CVIBB=A MACY11 27(654) 19-SEP-78 11:35 PAGE 2-14 
CVIBBA.P11 CROSS REFERENCE TABLE 


364* 372s 384* 385 405* 406 415* 426* 427 
452 463* 464 475 485* 99x 500 


4 
tt 565* 566* 568* 569* 570* 577* 


1113 1115 1117 


383* 385 393* 406 414* 425* 427 435* 
464 473* 475 498* 500 507* ¢ 519* 521 
566* 567* 568* 570* 576* 964* 971 973 


$IC 
SILLUP 012064 





CVIBB-A MACY11 27(654) 19-SEP-78 1 


CVIBBA.P11 


ackkkke 
KaKKKK 


11 
177777 


CROSS REFERENCE TABL 


“ PAGE 2-15 


1002 


997* 
963* 


997 1002 


3798 4004 4214 4424 
5694 5704 5728 5864 
7414 7584 7914 8164 


4694 
6624 
8534 


4914 
6644 
8804 


SEQ 0078 








CVIBB=A MACY11 27(654) 


CVIBBA 


bad 
un 
<= 
v 
oO 
nu 


P11 

007674 
000204 
167400 


= kereee 


= 001000 


19=SEP=78 


11:35 
CROSS REFERENCE TABLE 


PAGE 2-16 

14 57 
491 515 
664 666 
880 895 
997* 1107 
265* 303* 
2654 3034 
411 416 
510 5154 
578 5864 
6884 696 
8534 8804 
993* 995 
1080 

304 334 
9964 997 


997* 


354 
9984 


1115 1117 

343* 361* 701* 
338 3434 349 

432 437 4424 
531 5634 5644 
605 614 616 

706 7124 9 


384 414 514 
10014 1002 10034 


534 
1004 


554 
11054 


57# 


211 


2624 


11:35 PAGE 2-17 


CVIBB-A MACY11 27(654) 19-SEP-78 

CVIBBA.P11 CROSS REFERENCE TABLE 

BOT 5364 563 564 565 

COMMEN ad 

DELMA 1554 994 

DFC 5o# 68 75 82 

ECB 1264 287 291 321 
456 468 480 489 
570 584 594 604 
735 752 768 784 

ENDCOM sat 

ERC 1114 284 289 318 
454 466 478 487 
570 579 592 602 
732 750 766 782 

ERROR 44a 284 289 318 
454 466 478 487 
570 579 592 602 
732 750 766 782 

ESCAPE Sak 

GETPRI 44a 

GE TSWR 44a 2624 

T un 

NEWTST 448 265 303 332 
565 566 567 568 
712 725 741 758 

POP 444 =1001 1003 1004 

POPSP2 1374 283 288 317 

PR 1414 293 493 747 

PUSH 44# 1001 1003 1004 

REPORT 44a 

RESV 1494 258 259 260 

SCOPE 44h 393 332 343 
566 567 568 569 
725 741 758 791 

SETPRI 444 

SETTRA 10804 

SETUP Pld 211 

SIGC 6204 662 664 666 

SKIP 444 338 349 370 
505 510 526 531 
614 616 662 664 
904 920 979 

SLASH 44a 

SPACE 4oe 

STARS Cor 51 55 57 
515 563 564 565 
670 688 701 712 
987 993 995 996 

SWRSU 4a8 2114 

TRMTRP 10804 

TYPBIN oa 

TYPDEC a4a 993 

TYPNAM Gae 262 

TYPNUM 44a 

TYPOCS of 44a 





566 


567 


563 
688 


SEQ 0080 


564 
701 
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CVIBBA.P11 CROSS REFERENCE TABLE SEQ 0081 
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I CROSS REFERENCE TABLE 


SEQ 0082 
219 227 229 
6 283 
1002 
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CVIBBA.P11 CROSS REFERENCE TABLE SEQ 0083 
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CVIBBA.P11 CROSS REFERENCE TABLE 


ERRORS DETECTED: 
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CVIBBA.P11 SEQ 0085 


*CVIBBA, CVIBBA/CRF=CVIBBA 
RUN-TIME: 30 13 2 SECONDS 
CORE USED: 25K 





